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! 14 Sant’'Apple, aiutami tu 


: Laburocrazia dell'ufficio assorbe l'80% del tempo: lettere, resoconti, verbali, fatture, 


bozze di contratti. Ma il nuovo Apple Writer//e con il WPL... 


20 Come lancio Pinocchio 


L'amministratore di una casa editrice per ragazzi ha scoperto che VisiSchedule 


può aiutare Collodi, Dumas, Salgari. Giulio Verne non l'aveva previsto. 


22 Statistiche per tutti 


Anche per chi non si occupa di marketing o scienze affini per mestiere, ecco 


un programma di sicuro interesse. E gli indici più astrusi diventano facilissimi... 


28 Più spazio nel dischetto 


Rimuovendo il Dos dal dischetto si ottiene un buon 10% di capacità in più 
per i dati da conservare. E a conti fatti... 


30 Tutti gli uomini di Dossier 


Chi sono gli autori, italiani, del programma che la Arnoldo Mondadori 
Editore sta vendendo in tutto il mondo. 


33 Noi andiamo all’AppleFest 


Vieni con noi all’AppleFest di San Francisco: una settimana in California, in 
ottobre, e un salto a Cupertino... 


35 Scanner 


Un gioco per giovanissimi: imparano l'ortografia, ma anche l'uso della 
tastiera. Interessante anche però... 


38 Profitti, per favore! 


Ecco un sistema facile facile per calcolare il break-even point. il punto di 
guadagno, in qualsiasi attività. Anzi, due sistemi... 


44 Quadrante, sveglia e lancette 


Volete trasformare il vostro Apple Il in un orologio munito di rintocchi a ogni 
ora, allarme e lancetta dei secondi? Si fa così... 


46 Pronti, puntare fuoco! 


Una vecchia casa abbandonata, in piena notte. Tu sei il guardiano. 
Improvvisamente una finestra s'accende, un'ombra s'aggira furtiva... 


51 Sole mare ed Apple Il 


Le vacanze sono in vista. Per chi volesse trascorrerle in buona compagnia 
ecco qualche suggerimento e un'idea. 


54 Sì, son nato un giovedì 


Con il calendario perpetuo di App/icanco, di qualsiasi data, anche del 17000 
del 2000, diventa facile individuare il giorno della settimana. 


58 Figurati un po’ 
Disegni, cartoni animati, figure: con questo programma, uno dei tre del 
dischetto che Applicando regala ai suoi abbonati... 


64 Pianoforte Apple /// 


Chi l'avrebbe mai detto? Pensavate che fosse solo un noioso computer da 
ufficio? No, no! Ha perfino i diesis e ibemolle... 


661tronchi del tesoro 


Abilità, sangue freddo, fortuna: a nuoto. contro corrente fra itronchi 
galleggianti, vince chi raccoglie più sacchetti di dollari... 


69 Compatibilità vo’ cercando... 


Quali programmi per Apple ll non vanno bene per Apple //e? Applicando ha 
fatto una ricerca, e su oltre quattrocento ha scoperto che... 
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9 Appliquando 


10 Applicosa 
79 Applihelp 


Inesclusiva i diritti per l'Italia di: 


80 Disk Service 
74 Appliquanto 81 Applettere 
82 Applicosi 


Ufficio Lettere, resoconti, fatture, verbali 
di riunione. È possibile automatizzare 
davvero illavoro? Con il WPL... (pag. 14) 


lo applico 
Sandro 
Bacci, 
amministrato- 
re della casa 
editrice 
Carroccio, 
usa 
VisiSchedule 
per 
ottimizzare i 
tempi dei 
suoi libri per 
ragazzi. (pag. 
20) 


Giochi Pronti, 
puntare, fuoco! 
Mano ferma, 
riflessi scattanti 
e... (pag. 46) 


E ne Rifdnor 


Grafica Disegnare tavole di figure diventa 
facilissimo con il programma che Appli- 
cando regala ai suoi abbonati.(pag.58) 
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Tutti i diritti di riproduzione e tra- 
duzione di testi, articoli, progetti, 
illustrazioni, disegni, listati di pro- 
grammi, fotografie ecc., sono ri- 
servati a termini di legge. | pro- 
grammi pubblicati su Applicando 
possono essere utilizzati per 
scopi privati, scientifici e dilettan- 
tistici, ma ne sono vietati sfrutta- 
menti e utilizzazioni commerciali. 
Imanosscritti, i disegni, le foto, an- 
che se non pubblicati, non si re- 
stituiscono. 


E 


(Federazione nai Halana Eaton Giornali) 


C’ erano una volta i sacerdoti. Come tonaca indossavano 
il camice bianco, e nelle loro sacrestie isolate e 
condizionate 1’ ingresso di un comune mortale sarebbe stato 
sacrilego. Predicavano il verbo del computer senza 
possibilità di contraddittorio: questo si può fare, quest” 
altro non si può fare; questo si deve fare così e con questi 
costi, quest’ altro invece così e a questo prezzo, 

Per noi, umili impiegati, dirigenti, ingegneri, avvocati, 
architetti, professionisti, il laiinorum del computer era 
indecifrabile e alieno. Non supponevamo nemmeno la 
possibilità di un computer amichevole, piccolo, accessibile, 
piacevole, 

Ora il nostro elaboratore personale |’ abbiamo 
conquistato. Ci serve. Ci aiuta. Ci diverte, anche, Sappiamo 
che potrebbe servirci di più. Aiutarci di più. Divertirci di 
più, anche. Però il tempo è tiranno, abbiamo le nostre 
occupazioni e il computer per noi non può diventare un fine, 
deve restare un mezzo. Ah, ci fosse qualcuno capace di dire 
come si fa!, ci sorprendi ano a dire, Ah, potessimo chiamare 
qualcuno a programmarlo per far questo e queilo!, ci 
sorprendiamo a pensare... 

Il ritorno alla logica del sacerdote in camice bianco è 
in agguato. Applicando nasce perchè ciascuno possa 
continuare a essere padrone del suo computer senza bisogno 
di intermediari con o senza camice. Per aiutare a usare 
meglio il computer Apple. Per informare su tutto quel che c” 
è di nuovo, ma anche per imparare, tutti insieme, a ottenere 
sempre qualcosa di più dal piccolo gioiello che teniamo sul 
tavolo, a portata di dita. 


Tola ) Au ad 


P.S. Applicando è per il momento bimestraîe. Diventerà 
mensile grazie anche all’ amicizia di tutti gli abbonati. E” 
un giornale, ma vorremmo che diventasse un club. Per questo 
ogni forma di collaborazione, di segnalazione, di commento, 
è assolutamente gradita. 


Fratsilo sole, sorella mela 


| Fratelli delle Scuole Cr 
stiane, appartenenti alla 
congregazione laico religio- 
sa fondata nel 1680 da San 
Giovanni Battista de ia Sal- 
le. sono stati tra i primi a 
intuire che nelle classi supe- 
riori delle scuole italiane era 
giunto il momento di intro- 
durre l'insegnamento di una 
materia come l'informatica. 
E hanno incaricato Frate:lo 
Armando Norti, vice preside 
della Ragioneria, docente di 
fisica a matematica, con 
una particolare predilezione 
cer l'economia. di organ 
zare un aula cne fosse acat 
ta allo scoco 

Fratello Armanco nen 
fatto ripetere cue volte ‘invi. 
to 3 ha surito costituito | 
Cedig (Centro siaborazicne 
cati dell'Istituto Gon 
Milano. via Vitruvio 41, :sì 
022870081}, attrezzanceio 
zon cinque Apple !l. stam- 
Cantronics 739. meni- 
> amulatori ci drive. 
Il Cacig, ormai. 3 ope 
vo ca citra un anno. 20S 


ze Una ricca ciclioteca 


Egicio 2entinaro. direttore cella 
zivisicne di editoria elettronica cella 


Arnoido Moncaceri acitora. 


a meta Diù 
| ragazzi del- 
ca. "Qui 


tituto Iz 
erendono conticenza col 
comouter fin dai orimi anni 
celle superiori”. sciega Fra- 


telo Armanco. “Ai più DIC- 
coli nsecnamo. per asem- 
e l'arcnivio della 
ibraria scolastica. Agli alun- 
ni cecli ultimi anni cell'Istitu- 
o tscnico commerciale. cia- 
mo inveca i'onportunita di 


apprencere e ‘ecnicne ne- 


no al pomeriggio e nelle ore 
serali. Vi partecipano sia gli 
allievi dell'Istituto Gonzaga. 
sia i ragazzi che non fanno 
parte della scuola. tra i quali 
numerosi universitari. 

Ma, den presto, il Cedig si 


espanderà. Fratello Arman- 
do spera infatti di poterlo 
amplificare con altri sette 
Appie. grazie ai quali potrà 
trasformare il corso di datti- 
lografia in un corso di word- 
processing. 


Kompas per l'editoria del- 
l'informatica e. successiva- 
mente. alla Mondadori co- 
me capo civisione alla sag- 
gistica prima e all'educazio- 
ne poi. Nei frattempo ha an- 
che scritto, col programma 
di word-processing dell'Ap- 
ple II, un best seller edito da 
Laterza col titolo di “A scuo- 
la con il computer” che. in 
soli due mesi, ha venduto 
oltre 11.500 copie. 

Ora, insieme a una task- 
force di collaboratori fidatis- 
Simi, dopo aver realizzato 
una serie di prototipi di soft- 
ware e averli sperimentati 
per oltre un anno, ha avviato 
la produzione in serie di pro- 
grammi adatti agli home e ai 
personal computer. La sua 
divisione, associata per la 
distribuzione internazionale 
all'editrice francese ViFi Na- 
tan, siè specializzata sia nel 


software professionale sia 
In que!lo didattico. 

Le frecce che Pentiraro. 
Guglieimo Tell della Monda- 
dori. ha al suo arco sono nu- 
merose 2 tra esse alcune 
colpiranno il bersaglio con 
precisione: come Dossier 
(vedere anche a pag. 30), i 
corsi di logica simbolica, le 
lezioni di chimica matemati- 
ca e fisica per le scuole su- 
periori a le università, e per 
finire. Dedalus, un rompica- 
po veramente geniale. 

Ma Egidio Pentiraro ha 
confidato ad Applicando 
che la sua divisione di edito- 
ria elettronica sarà sempre 
ben lieta di esaminare tutti i 
software e le proposte di 
programmi che riceverà. 
Autori ci software, dunque, 
subito al lavoro! Forse avete 
trovato l'editore che cerca- 
vate. 


Beato fra le banche 


Per ora, in Italia, è unico. 
Giovanni Binetti. 38 anni, 
laureato in economia e 
commercio all'Università 
Cattolica di Milano, profon- 
do conoscitore dei mercati 
statunitensi, già product- 
manager e, da una decina 
d'anni. consulente di grandi 
gruppi industriali, svolge at- 
tualmente quella che in 
America è conosciuta come 
la professione dell'informa- 
tion specialist. 

Nel suo istituto. Informa- 
zioni Strategiche, che ha 
sede presso l'Eurisko (V.le 
Monterosa. 15 - Milano: tel. 
02/4696768). Giovanni Bi- 
netti lavora di fronte a un 
Apple Lo utilizza come 
terminale collegato. attra- 
verso a un modem, alle rsti 
di trasmissione tra Milano e 
gli Stati Uniti che gli consen- 
tono di “entrare” in una 
qualsiasi delle 250 banche 


dati più ricche del mondo. 
Appartengono quasi tutte 
alle catene californiane 
SDC e Dialog, e per cono- 
scerne perfettamente i con- 
tenuti e i segreti gli sono oc- 
corsi quasi cinque anni. Ma 
ora Giovanni Binetti è uno 
tra i consulenti aziendali più 
ricercati. 

Suoi clienti sono circa un 
centinaio di società tra le 
quali spiccano nomi come 
Ciba-Geigy, Aeritalia, Gea, 
Pierrel, Citybank, Somma 
lanifici, e altri ancora. Quan- 
do hanno bisogno di docu- 
mentazione, gli sottopongo- 
no il problema, anche per 
telefono; Binetti e i compo- 
nenti la sua equipe interro- 
gano le banche dati, e nel 
giro di pochi minuti le rispo- 
ste possono essere ritelefo- 
nate alle aziende clienti o 
inoltrate via fotocopia e fat- 
torino. 


Il software può essere un inve- 


The Book of stimento significativo. Molte 


volte, tuttavia, è difficile com- 

APPLE parare programmi analoghi 
il migliore. 
SOFTWARE #23 
RE 1983 risolve completamen- 


per individuare con esattezza 


te questo problema. In 500 

1983 pagine di grande formato e 

riccamente illustrate, esso è lc 

Edited by: sola fonte che descriva e valu- 

Jeffrey Stanton, Robert Wells; Ph.DI,. SCR 
and Sandra Rachawansky di programmi per l'Apple. 


Ciascuna descrizione è stata 
scritta de un asrerto specic- 
lizzato in quel determinato 
tipo di progremma, si tratti di 
applicazioni grictiche, busi- 
ness, word prccessing o gic- 
chi; il risultcio è un'iniorma- 
zione impcrzicle ad cltamen- 
te quaelificcic. 

La descrizione nen specifica 
solamente le corctteristiche 
dei prcgicmmi (funzioni, hcr- 
dwcrs richiesic, linguaggio 
etc.) mc veluic anche — cen 
unc serie di cun teggi — diver- 


Il loro che nessuno di vol 
puo permettersi di non avere! 


Anaheim 
18-18 maggio 


In California, vicino a Los 
Angeles, una mostra conve- 
gno sul tema “L'era emer- 
gente dell'informatica: com- 
puters, comunicazioni e uo- 
mini”. Su un'area espositiva 
di 30.000 metri quadrati, si 
terranno in contemporanea 
più di 80 conferenze, riparti- 
te per 11 aree principali d'in- 
teresse, seminari di aggior- 
namento professionale, 
ecc. Per informazioni: Con- 
solato Generale America- 
no, Via Gattamelata 5, tel 
)2-4982241, 20149 Milano. 


Parigi 
30 maggio 
3 giugno 


internationai Software Sxni- 
zition, prima mestra interi 


centinaio di espositori e ri- 
chiamerà. secondo le previ- 
sioni, almeno 20.000 visita- 
tori. Per informazioni: Pre- 
mière Exposition Internatio- 
nale de Progicieis, 6, Place 
de Valois, F-75001 Paris, 
France 


San Francisco 
27 ottobre 
3 novembre 


AppieFesi: d'autunno in Ca- 
ifornia. con viaggio a condi- 
zioni speciali der i lettori di 
Applicanco. Lo straordina- 
rio s ci queste ma- 
loni !e ha fatte dif- 

tappeto negli Stati 
Jniti. Ma l'AppieFest ci San 
Francisco è anche una fa- 
volosa cccasione per visita- 
a città califor- 
evista ancne una 
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. Personali Data Sasa 


. Businnes Graphics 


fo applico, 
‘ tu applichi? 


La pubblicità su 
Applicanda è informazione. 
Chi legge Applicando 
possiede um camputer.., 
Apple o sta per acquistarlo. 
Oppure sta per cambiarlo 
care une Apple //e. 

© con un Lisa. 

Oppure non: la cambia 
affatto, se [o tiene stretta, 
ma vuol sapere dave, 
came e casa fa 
veramente per [uf. 

Una nuova marca 

di dischetti? 

Una nuava 

Software Hause? 

Una nuova stampante 

a bassa prezzo? 

Per chi applica, 

è importante saperlo. 
Subhita. 


Per la pubblicità su: queste. 
pagine, telefonare alla 
02-70242% 


oppure scrivere a: 
Applicanda: Ufficio Pubblicità 
Corsa Manforte 39, 20122 Milana 


Per i commercialisti 
un esperto in gestioni 


Commercialisti, ragionieri e 
consulenti del lavoro sono le 
categorie cui si rivolge un 
muovo programma composto 
messo a punto dalla Ceda- 
minicomp di Bologna. Il siste- 
ma chiamato Gestu, consiste 
in un pacchetto di sei moduli 
(Gestione archivi, Scadenzia- 
rio, Gestione prestazioni. Fat- 
tura proforma & parcella. Ge- 
stione causali e Valut 
bilancio) sviluppati a liveilo 


colloquiale. in modo che an- 
che chi non ha mai visto una 
consolle possa usarli tranquii- 
lamente. L'elaboratore. trami- 
te il video. interroga. suggeri- 
sce e controlla le risposte deli- 
l'operatore. Ogni digitazione 
errata viene segnalata da un 
segnale acustico, e provoca 
solamente la ripetizione della 
domanda senza alterazione 
negli archivi o alla operatività 
del sistema. 


Una stampante 


da 100 milioni... di caratteri 


Stampa 120 caratteri al se- 
condo, senza fragore. La sua 
testina ad aghi è garantita: 
dura almeno 100 milioni di ca- 
ratteri. Ma soprattutto la nuo- 
va stampante Apple Dot Ma- 
trix Printer sa simulare moltis- 
simi caratteri (Pica, Elite, 
ecc.) delle tradizionali mar- 
gherite, anche se non trala- 
scia il proporzionale o il com- 
presso. Oltre a questo, dise- 
gna grafici ad alta risoluzione 
capaci di soddisfare esigenze 
professionali. Tutto ciò vuol 
dire che, con Dot Matrix Prin- 


ter, il vostro sistema Apple 
può trasformarsi in un centro 
grafico e per il word proces- 
sing ad alto livello. 

Per collegare la stampante 
ad Apple Il (sia l'Europlus, sia 
Apple //e) occorre un'interfac- 
cia parallela standard Centro- 
nics (quella che da i migliori 
risultati e senz'altro la Apple 
parallel interface card). 

Se invece si possiede un 
sistema Apple ‘/ bisogna 
usare un'interfaccia parallela 
universale (la Universal pa- 
rallei interface card). 


Apple in psichiatria 
e tutto è come un gioco 


A Buîfalo. nello stato ci 
New York (Stati Uniti d'Ameri- 
ca) uno psichiatra ha messo a 
punto un programma per Ap- 
pie Il che. egli sostiene. simu- 
la esattamente la cinamica 
delle relazioni interpersonali 
dell'uomo. 

Il concetto che iniorma 
programma è definito 9sico- 
tronica. e usa Il computer per 
incurre una persona. nel ca 


specifico il paziente. a risolve- 


O 


Un monitor di buon load 
per chi usa le cassette 


Non sempre caricare i pro- 
grammi da cassetta è un ope- 
razione facile. Anzi: spesso 
capita che, registrati a livelli di 
volume diversi, i programmi sì 
devono ripescare sul mangia- 
nastri manovrando di conti- 
nuo la manopola del volume. 
alla ricerca della posizione 
corrispondente a quella di re- 
gistrazione. Tuttavia il man- 
gianastri costituisce pur sem- 
pre un'alternativa molto più 
economica ai drive. E allora? 


10 


Allora, invece di adottare 
soluzioni empiriche, come 
staccare il jack del registrato- 
re e regolarsi a orecchio, Aa- 
dioelettronica & Computer, 
mensile di elettronica pratica 
e programmi per computer, 
nel numero ora in edicola, 
suggerisce l'autocostruzio- 
ne, con poche migliaia di lire, 
di un monitor di buon load, di 
cui pubblica il progetto e tutti i 
dettagli pratici per la realizza- 
zione. 


re ogni probiema nell'ambito 
di situazioni precostituite. 

Lo psichiatra. Ronaid | 
ha paragonato il progra 
ad un simulatore di volo. i 
e a quelli usati dal giloti Der 
imparare a manovrare un jet 
‘Ciò che si riesce a fare sem- 
ciifica tutto". dice il medico 
‘in cratica. ta Gi ricon- 
durre a giochi le situazioni 
che possono creare difficoità 


àl Pazienti 


e 


Apple risparmia 
energia 


Il progetto è nato cer la sua 
tesi di laurea. ma ora l'inge- 
gner Aldo Mazzi (che si è lau- 
reato all'Università di Pado- 
va, facoltà di tecnica agraria) 
ha installato ben cinque siste- 
mi Apple, e dalla fase di puro 
monitoraggio conta di passa- 
re a quella di vero e proprio 
controilo. 

Oggetto dei suoi studi sono 
i processi lenti in generale. a 
in particolare quelli cne con- 
ducono alla oroduzione ci 
ciogas per fermentazione na- 
turale in assenza c'aria nel .i- 
quami di recupero. 

Il risuitato di quest'ocera- 
zicne è la produzione ci meta- 
no a costi sassissimi. 

Ma anche ‘e applicazioni 
collaterali sono numerose =c 
asîiremamente ‘nteressanti 
sotto il orofiio sconcmico 

Uno degii Accie cell'ince- 

i otto con- 


‘orni- 


îrollo una 
ra aresio 


curero dell'accua calc. 


centrale elettrica di Porto 
Tolle. 

“Si tratta di monitoraggi 
che senza un Apple sarebbe 
stato impossibile effettuare”, 
dice Mazzi. E spiega che il 


Se qualcuno gia 


mentava. ora 


mentarsane sono ci ciu 
Parliamo dei numeri: e 
socrattutto se sono ‘anti. 


c'è, a ci sembra 
mate corretta a scel 

irilo come accessorio 
parato: chi non ne na cisc- 
gno. cosi. suo ‘are a meno 
di comprarlo a ci cagaric 

problema è infatti scprattut- 
to di costi: oggi ii costo ci un 
tasto. si un tastino di plasti- 
ca, è praticamente identico 
al costo di un cnip. Come 
dire che a momenti 
più la tastiera ci ‘utti i circuiti 


3e- 


costa 


ntegrati Ji cul a ‘atto un 
comcuter. Semcra assurco 
ma a orccrio cosi. 5 così si 
arezzo cel “nume- 
<evcac”. one ci ‘listino 
racciunce ‘a 37.0C0 ‘ire 
cce? Si. cer chi non 
3 cicitara numeri in con- 
ione 3 cecisamente 
arene una spesa 


problema da risolvere consi- 
steva nel rilevare costante- 
mente almeno una quaranti- 
na di fattori variabili, fra cui la 
temperatura, la velocità dei 
fluidi, la potenza elettrica as- 


assurda. Per chi invece Îa- 
vera soprattutto con !e cifre 
si tratta di denari assoluta- 
mente den spesi. Tantociù 
che ii nuovo tastierino der 
‘Appie ‘a non occupa uno 
siot. è indipendente cailo 
incito celle paccle, si in- 
serisce comocamente sui 
retro del comcuter. a 30- 


sorbita, le unità di gas prodot- 
to dal digestore, le condizioni 
meteorologiche, i tempi di 
funzionamento delle appa- 
recchiature per la misurazio- 
ne dell'usura. eccetera. 


prattutto semplifica enor- 
memente ia vita. Come ia 
Gallia di Giulio Cesara è in- 
fatti diviso in re parti: la se- 
zione numerica. che com- 
prence virgciette. sunto. vir- 
gola 3 | numeri da zero a 
nove: la sezione calccio. 
cne comcrence sarentesi. 
segni ci accizione, sottra- 
zione. civisione e moltipiica- 
zione. oltre ai tasti Return 3 
Print: a !a sezione V/isiCalc. 
che inciuce e irecce ner 
sposiare il surscre a i tasti 
Esc e Socazi:c. in oratica. 
usando il VisiCaic, Salve 
cne cer intrecurre aventuali 
definizioni ‘n ettere. si 2UC 
riuscire a non :cccare più !a 
tastiera normale. !avorando 
esciusivamente sul diccoio 
tastierino numerico. Ma | 
vantaggi sono anormi an- 
che nell'uso ci program- 
mi di contacilità. fatturazio- 
ne, calcolo. dimezzando 
spesso il temco ci Dattitura. 


Ul 


NOVITÀ 


BUFFER PER 
QUALUNQUE 
STAMPANTE 
CON STANDARD 
CENTRONICS. 


Memorizza immediata- 
mente 8 kbyte in uscita 
del calcolatore e li invia 
successivamente alla stam- 
pante. Potete così usare 
il calcolatore mentre la 
stampante lavora. 

L. 250.000* 


T&nTAGariziar- Via Angiolire: ZE 
Telefora: (+&f-30909E: 


(SVENDITA PERE; . 
CORRISPONDENZA: 


PER APPLE 


Drive 3” con doppio 


controller L. 770.000 
Drive aggiuntivo L. 680.000 
Interfaccia stampante 

St. Cantronics L. 30.000 


Interfaccia stampante 
Centronics per Epson 


con grafica L. 130.000 
Come sopra per 

Centronics 739 L. 150.000 
Espansione 16K 

Language Card L. 99.000 
Espansione di memoria 

Maxiram 16K L. 150.000 


Interfaccia seriale 
bidirezionale RS232C L. 160.000 
Stampante Oki 80 
{paralle!a) L. 720.000 


* N.8. Tutti | prezzi sono comprensivi 
ci IVA e spese di spedizione. 


Basicode per 30 fiorini 


Il fatto che non esista un 
linguaggio Basic unico. iden- 
tico per ogni tipo di computer, 
può anche scoraggiare i neo- 
fiti, allontanandoli dall'elabo- 
ratore. Questa la considera- 
zione che sta alla base di un 
nuovo sistema per convertire 
ogni linguaggio Basic in uno 
schema base di semplice uti- 
lizzo. 

Il dialetto universale, se co- 
sì si può chiamare, è stato 
messo a punto da un gruppo 


di olandesi che lo hanno chia- 
mato Basicode, ed è disponi- 
bile anche per Appie (il che 
significa poter usufruire di 
qualunque tipo di software di- 
sponibile sul mercato). Per ot- 
tenere la cassetta-program- 
ma con le istruzioni, basta in- 
viare 30 fiorini olandesi 
(11,36 dollari) a Basicode, 
Agministratie Algemeen Se- 
cretariaat, NOS-Po box 10, 
1200 JB Hilversum The Ne- 
derlands. 


Uno sconto? Chiedilo qui 


Unmilionecuecantettanta- 
quattromila lire di sconto 
Avete capito bene: 1.284.000 
lire di sconto sui sisiema Ao- 
pie. Lo offre ia Iret attraverso 
un blocco di coupons da pre- 
sentare ai vostri fornitori di fi- 
ducia. Ovviamente. non si 
possono usare per ottenere 
uno sconto-monstre sull'ac- 
quisto del sistema base: que!- 
lo dovete già averio. Ma se 
avete intenzione di espander- 
vi. di usare appieno !e possi- 
bilita del computer. allora qui 
vi si offre un'opportunità ec- 
cezionale. Tanto per fare 
qualche esempio, la stam- 
pante a margherita Appie non 


ome da listino. ma 
490.000: il Joystick lo pa- 
ete 122 mila lire invece di 
: la stampante ad aghi co- 
sterà soio 1.103.000 lire inve- 
ce di 1.225.000. Cosa biso- 
gna fare per ottenere gli scon- 
ti? Semplice. Basta presen- 
tarsi al rivenditore di fiducia 
con il blocco dei buoni, e stac- 
care quello che si può definire 
quasi un assegno circolare 
per l'acquisto di quei che si 
desidera. E per ottenere i 
buoni? Basta chiederli alla 
Iret, Via Bovio 5, Reggio Emi- 
lia. Ma in fretta. La validità dei 
buoni scade il 31 maggio. 


Autori 
cercansi 


| possibili acquirenti di ho- 
me computer sono in conti- 
nuo aumento. Si stima che i 
potenziali compratori siano 
fra i 50 e gli 80 milioni per il 
prossimo decennio. E l'utiliz- 
zo degli elaboratori è incer- 
nierato principalmente sulla 
gestione dei budget familiari, 
sui videogiochi e sui nuovi si- 
stemi di apprendimento. Ma 
la domanda degli utilizzatori 
si sta anche e sempre più ri- 
volgendo verso un mercato di 
letteratura specifica. 

Questo è quanto emerge 
da una ricerca effettuata dal- 
l'International Resource De- 
velopement di Norwalk, nel 
Connecticut (Stati Uniti), spe- 
cializzata in ricerche di mer- 
cato. 

In effetti fra i libri che diven- 
tano best-seller sempre più 
spesso cominciano a fare ca- 


polino i titoli dedicati al com- | 
puter. E le riviste specializza- | 


te hanno sempre più bisogno 
di giornalisti che di computer 
sappiano tutto. A proposito: 
anche Applicando è ben lieta 
di prendere in considerazione 
proposte di collaborazione. 


Quando 
arriva Lisa... 


Le prenotazioni fioccano 
ma Lisa si fa attendere. Non 
più del previsto, però: alla 
Iret l'avevano promessa per 
settembre, e settembre sa- 
rà, almeno per la versione in 
italiano. Per i fanatici della 
versione americana, inve- 
ce, potrà esser disponibile 
già da fine giugno. Intanto le 
software house sono al la- 
voro per sfornare nuovi pro- 
dotti capaci di sfruttare il 
Mouse, il “topolino” che 
consente di lavorare senza 
toccare la tastiera. Del qua- 
le Mouse sarà dotato anche 
MacKintosh (è una qualità 
di mela californiana), pros- 
sima novità Apple. 


Una leva 
di comando 


Consente di manovrare a 
360 gradi: aggiunge sensibili 
ta ai vostro sistema di control- 
| lo: semplifica !o sviluppo dei 
programmi. accresce il fee- 
ling tra voi e il video, aiutando 
nell'esecuzione di disegni e 
grafici 

Il nuovo Apple joystick per 
Apple ./e (è eccellente anche 
per Apple ;//) è un elemento 
indispensabile per il vostro si- 
stema Apple. 

A differenza delle normali 
paddle, viene manovrato gra- 
zie a una leva posta vertical- 
mente, dal disegno piace- 
| vole. 

Accanto al Joystick, sono 
disponibili ora anche le nuove 
paddle, dal design molto più 
gradevole e funzionale delle 
precedenti. 

Ma il vantaggio vero è nel- 
l'Apple //e: non occorre più 
aprire il computer per collega- 
re Paddle e Joystick; c'è una 
presa sul retro. 


Tron: musica 
maestro! 


“Cisi lavora meglio che con 
il sintetizzatore”, ha dichiara- 
to, “anche se la quantità di 
tempo che si deve impiegare 
è superiore. Ma il risultato giu- 
stifica ampiamente la scelta." 
Così dice Frank Serafine, uno 
dei compositori cui la Walt Di- 
sney production ha affidato la 
realizzazione della colonna 
sonora del film Tron. E la ta- 
stiera sulla quale Serafine ha 
elaborato le sue melodie è 
quella di un Apple Il. “La cosa 
che mi ha affascinato mag- 
giormente dell'Apple”, ha det- 
to il compositore, “è stata la 
purezza di suono che riuscivo 
a ottenere. Veramente incre- 
dibile.” Ma avrebbe voluto la- 
vorare di più: “La musica arri- 
va e scompare a tal velocità 
che nessuno riesce ad ap- 
prezzare in pieno tutto il lavo- 
ro che ci sta dietro” 


Apple'/) Diskwars: 
Quick File // 


Diskawvare” 


(00) 
x 


ple' Il tenia Writ 
App Apol 
Masiero 


peICIO 
®_ i” andare al cinema. Tornare 
#tre ore dopo e trovare tutto fatto: 
lettere, resoconti, verbali, note spese. 
- È davvero impossibile? con il WPL... 


Accendere il computer 


Sant’ Apple 


lavora 


per me 


ettere da scrivere, lettere a cui ri- 
Lise fatture da mandare, rap- 
porti, resoconti, bozze di contratti, ap- 
punti da riordinare, verbali di riunione, 
note interne, note spese: la burocrazia 
dell'ufficio è infinita, schiavizzante, op- 
primente. Sul suo altare immoliamo 
ogni giorno almeno l'80% del tempo la- 
vorativo. E le decisioni produttive? E il 
lavoro vero, le cose da fare sul serio? 
Ah, per questo c'è sempre meno tempo. 
Così gli organici si infittiscono, i costi 
aumentano, i margini si assottigliano, i 
profitti spariscono. Compriamo un com- 
puter, suggerisce qualcuno timidamen- 
te. Si, compriamo uno, cento, mille 
computer, se davvero possono aiutarci, 
risponde un altro, ma con scetticismo, 
quasi con sarcasmo. Non sarà, il com- 
puter, un'altra complicazione, un altro 
modo di perder tempo? 

Niente è meglio di un computer per i 
lavori ripetitivi: programmato una volta, 
eseguirà il suo compito in migliaia e mi- 
gliaia di occasioni senza lamentarsi per 
gli straordinari non pagati e senza chie- 
dere aumenti di merito. Ma per le lette- 
re, le note, i resoconti? Troppe sono 
state le delusioni, finora. Troppi gli ac- 


quisti non abbastanza mecitati, fatti 
d'impuiso o seguendo consigli non sut- 
ficientemente professionali. Snpure, 3 
pensarci bene, cosa c'è di ciù ripetitivo 
dei iavoro d'uîficio? Ha i suoi riti. rigida- 
mente codificati; le sue formule, rigoro- 
samente uguali. Il guaio è che riti e for- 
mule cambiano da azienda ad azienda. 
da studio professionale a studic protes- 
sicnale. Ma quando dettiamo una ‘ette- 
ra alla segretaria non stiamo a precisar- 
le che deve metterci anche ia data. acn 
stiamo a ricordarie con cuali carcie con- 
ciudere e salutare: ci oensa iei. ‘0 sa, > 
“programmata” ormai per orovvecere 
autonomamente. 

Quant'altra parte del iavoro c'uific:o 3 
altrettanto ripetitiva? S come sîruttare 
Questa ripetitività cer semolificarci ia vi 
ta guadagnandone in sificienza. in 2ro- 
duitivita. 2, nercne no. in :am0o iero? 
L'unica vera difficoltà sta nel fatto cn 
qui ia risposta 2 indivicuale. ‘agliata 
‘a misura della singola azienca o suile 
asigenze dei singolo stucio orotessio- 
nale. Ma i notai ci seno ruscri. almeno 
zueili ciù avcluti utilizzano cra erecram- 
mi di voro orocessing ser silara aLio- 
nalicamente 3 immeciatamenta | con- 
taiti gi “cuiine: vesia camclare somi, 
segnemi. cifre. cggetto cer contra:to. 
auaicne ciauscla. !l resto nen muta. cer- 
ns ribatterio ogni volta? S 
vecati cne :raggono guacecri cal sc 
xito crediti i quali sbricano montagne 


avvisi ‘acenco cicitara alle 


1 INDIRIZIT. OR: 02 


250 3:NE 


ROVA  PLI INDIRIZII,92/%; 


Ad dI 


F/ Nome 38/4 
NP 
Pal 
2690 130P 

FINE ANI 
MY 


oto (RETURN) 


meco si DessenO orecarare auicmail- 


solo i‘incirizzo del debitore a l'importo 
dovuto. 

Sono esempi già noti, e che per que- 
sto sembrano banali. E poi. per molte 
cose c'è già la carta carbone. Può esser 
vero. E infatti l'introduzione del compu- 
ter negli uffici va fatta con intelligenza. 
Sarecte stupido accendere un appa- 
recchio cel costo di qualche milione sc- 
lo cer stilare un appunto interno che si 
puo fare a mano. Ma cosa ne direste di 
un programma che, in una lettera da 
mandare a più persone. inserisse auto- 
maticamente la data. poi andasse a cer- 
carsi da sclo gli indirizzi dei destinatari 
orincipali = di quelli eventualmente inte- 
ressati cer conoscenza. scrivesse ta 
scio convenevoli iniziali e finali, inseris- 
se automaticamente frasi destinate s0- 
lo a uno degli interessati e solo nella 
ettera a lui indirizzata, e ii tutto vattenco 
nen siù ci una decina di îasti? 

Si. avete capito bene: una cecina ci 
tasti cer risconcere a un questicnaric 
sullo scnermo. 3 dalla stampante asco- 
ne. nel numero giusto di copie. serso- 
nalizzate. incirizzate e complete. ‘ettere 
ancne ci siù fogli. già delle e oronte. £ 
‘acile scio der ie circolari di rcutine? 
Nen soltanto ser cueile. Îl îrucco sta nei 
‘iuscire a scnematizzare crima. a ricon- 
Iurre îuito ai vari casi cne si D0SSCNO 
oresentare. a stancardizzare. î acn 
2erce nulla in cersonalizzazione: casta 
sensare a cuanto imperscnali scnc cia 
e ecrmali comunicazioni ci iavore. 

Ma 3 scio un asemcrio. Allo stesso 


menie iecine di documenti civersi. 
2u0 arrivare a realizzare ‘i scono zi 
ara a sescara mentre al ‘avere cer- 
lavvero i semeuter. No. continuare 
aspettate a girar 2agina 
cerca ci cualcosa ci ciù serio. Stiamo 
sananco se! VPI, ii linguaggio ci vere 
one permette ci orogram- 
i comouter ceve 


alimenta guesio: one | scmcu- 


averava come una maccrina cer 


scrivere. Rispetto alla quale cresentava 
moiti vantaggi. è vero. Ma alla tastiera 
coveva semere asserci qualcuno. Con 
il'NPL. cne ia parte del programma Ao- 
Sie Nriter /e. ie cose cambiano: riccr- 
cate :e anticne viancie a nastro perîora- 
to. cne sucnavano anche senza ciani- 
? Zcco. è cualcosa ci simile. Certo. 
ne su cuelle pianole cualcuno orima 
ceveva serfcrara ii nasîro. 3 così, nel 
nosiro case. siscgna che cualcuno 
3ciecni al zomeuter Una volta 2er :uite 
ces è che ceve fare. Magari cccorrera 
ancne cualcne verifica, per vecere se ‘a 
musica a orccrio fedele allo soartito. ma 
gel asecuzione e garantita. cuante vci- 
‘e 31 vucie. Ma con un vantaggio: ‘a 
ciancia asecuiva oroprio 3 scitanto è 
nere craevisis: Acpie ‘a invece. con 
2uesio orcoramma. è in grace ci sucna- 
a sossicili varazioni sul 


intanciameci dene: cuest'articcio 
Gare Dasso ser dasso. 
‘gomento. come funzicna 
e ‘Nriter /e. Peri primo ii 
tuals contiene 142 cagins. 
manuale de! seconco > ci pen 
eccome ! orccrammi ci cui 
cesano ancne cen ii Quicx 
oce sintetizzare cli 2u- 
‘383 cegire cel manuale ci 3ue- 
TOCCO si tratta ci manuali 
cenitili er | momento scio in ingie- 
se. ma. Apcie /Mriter e cispone ci nu- 
marcesi ‘Nelo’. cice aiuti cescrittivi cer 
mecrcara come otanera i risuitati desi- 
cera 3uesii si. 2Oosseno assera :ra- 
taiianc sortanco :i ciscnetto al 


ze n 
rivencitore di ficucia. 0 richiedencone 'a 
macuzione al memento cell'accuiste il 
ivencitore ciscone di un ciscnetto sce- 


È) 


acprontato dalla iret. cne orovve- 
cmalicamente alla iracuzione ca- 
Di 
zii seni. 

Duncue .: imiteramo a un ciscorse 


RIMMOURIVO. 3 


esempi. Primo esempio: l'esecuzione di 
lettere personalizzate. In figura 1 ripor- 
tiamo il programma Autoletter, presente 
sul dischetto dell'Apple Writer //e. E 
scritto in WPL, ma nessuna paura, non 
è complicato come sembra. Tanto per 
cominciare, in WPLi programmi si scri- 
vono come se si scrivesse un testo 
qualsiasi con il word processor, e si sal- 
vano come un testo qualsiasi. Per otte- 
nerne l'esecuzione basta scegliere, 
sempre da word processor, l'opzione 
stampa (schiacciando Control-P), e poi, 
invece di battere NP (new print) che 
produrrebbe la stampa del testo in quel 
momento in memoria, scrivendo DO 
(fai) seguito dal nome del programma in 
WPL da eseguire. 

Così, per eseguire il programma Au- 
toletter di figura 1 occorre avere sul di- 
schetto posto nel drive 2 i file Autoletter, 
Letteratipo e Indirizzi. Supponiamo che 
Letteratipo sia un file contenente una 
lettera come quella di figura 2, e che 
Indirizzi sia un file contenente una serie 
di indirizzi come in figura 3. Noi voglia- 
mo inviare la lettera di figura 2 a tutti gli 
indirizzi di figura 3 (se ne vedono soio 
due ma supponiamo che siano centi- 
naia), sostituendo però alle scritte (in- 
dir) e (nome) indirizzi e nomi di ciascun 
destinatario. 

Bene, come si fa? Si accende la 
stampante, si mette nel drive 1 il di- 
schetto Apple Writer //e e nel drive 2 il 
dischetto contenente i tre file che ci inte- 
ressano. Si accende il video. Si accen- 
de l'Apple //e. Sullo schermo dopo qual- 
che secondo compariranno i titoli di te- 
sta consueti e l'invito a battere Return. 
Poi si arriva alla fase in cui normalmen- 
te si comincia a battere un testo nuovo, 
giusto? Ecco: invece di battere un testo, 
avendo davvero nel drive 2 i file che 
abbiamo detto e scritti (soprattutto Au- 
toletter) così come son riportati qui, ba- 
sta schiacciare Control-P e scrivere DO 
AUTOLETTER, D2, dove D2 serve ad 
avvertire il computer che troverà il file 
Autoletter nel drive numero 2. 

A questo punto possiamo anche an- 
dar via, sempre che la stampante abbia 
carta a sufficienza, che l'allineamento 
sia giusto, eccetera. AI ritmo di circa 
una al minuto (ma dipende anche dalla 
lunghezza della lettera e dalla velocità 
della stampante), ecco le nostre missi- 
ve belle e pronte, personalizzate e indi- 
rizzate ciascuna alla persona giusta. 
Cosa è successo? Vediamo, tornando 


alla figura 1: la prima riga del program- 
ma START PSX 1 ha attribuito il valore 
1 alla variabile numerica X. La seconda 
riga LOOP NY ha cancellato dalla me- 
moria (NY) quel che eventualmente vi si 
trovava. La terza riga L LETTERATI. 
PO, D2 ha caricato in memoria il file 
Letteratipo, prendendolo dal drive 2. La 
quarta riga B ha portato il cursore all'ini- 
zio del testo. La quinta riga F/(Indir)//ha 
cercato (indir) nella lettera tipo. La sesta 
riga Y? si è accertata che (indir) sia 
stato trovato. La settima riga L INDIRIZ- 
ZI, D2/<(X)>/</N ha prelevato dal file 
Indirizzi il primo indirizzo (nel nostro ca- 
so X vale ancora 1). L'ottava riga PGO 
TROVA ha spedito il programma sulla 
subroutine TROVA. La nona riga PGO 
FINE è quella che invece entra in azio- 
ne se gli indirizzi sono finiti, e avvia il 
programma sulla subroutine di conclu- 
sione. La decima riga TROVA PLS IN- 
DIRIZZI, D2/<(X)>//N=Ausala varia- 
bile (X), che vale ancora 1, per caricare 
in memoria la stringa con l'indirizzo. 
L'undicesima riga B riporta il cursore 
all'inizio del testo. La dodicesima riga 
F/(Nome)/SA/A cerca e sostituisce 
(Nome) con il nome di battesimo nel 
primo indirizzo. La tredicesima riga 
PNP stampa la prima lettera personaliz- 
zata. La quattordicesima riga PSX+1 
aumenta di 1 il valore di X. E la quindice- 
sima riga crea un loop, cioè rinvia alla 
seconda riga perché il procedimento ri- 
cominci dall'inizio, ma questa volta con 
il valore X incrementato. 

Quando il programma finisce, perché 
sono finiti gli indirizzi, e ci si ritrova alla 
riga 16, FINE PIN [L] INDIRIZZO n. (X) 
Vuoto (battere Return), queste ultime 
frasi compariranno sullo schermo. Si 
sapra così quante lettere sono state 
stampate. 

Come si è visto, si tratta di operazioni 
che normalmente avrebbe fatto l'opera- 
tore, ma che invece vengono eseguite 
automaticamente dal computer grazie 
al programma in WPL. Usando un pro- 
cedimento analogo, e scrivendo un di- 
verso programma in WPL sulla misura 
delle proprie esigenze, si può riuscire a 


{Indir) 


Caro (Nome), 

Congratulazioni! Abbonandoti 
ad Applicando hai fatto una 
scelta di cui non ti pentirai. 
In un mondo in cui 1’ alta 
tecnoiogia si evolve in tempi 
brevissimi, poter disporre di 
informazioni costantemente 
aggiornate è essenziale, Na tu, 
caro (Nome), col tuo Apple vuoi 
anche divertirti, è Applicando 
fornirà informazioni è 
programmi utili, ma anche 
listati e articoli che 
renderanno più piacevole 1’ uso | 
del computer, 

Con i migliori auouri, 


La redazione di Applicando 


Figura 2 | 


pe ————T_—_________________,-; 


<I)Giovanni Rossi 
Via Bianchi 121 
20100 Milano 
‘2)Luigi Verdi 
Piazza Gialli 38 
10100 Roma 


Figura 3 


‘aggiuncera una ciscrata aicmarizza 
2ione ancne cer altri socumant. “i 
Semcie one acciamo sensicerzio. in 
2rogramma în ‘NFL, Aurcie 
sa cen ste Îlle: 
Muila mcecisca 


vivere Un Srcci 


ven den cn almero 


mecgicre e. 

Ma orima ci sassara al seconco 
asemric. veciamo in carticciare uno sei 
‘ile one acciamo gia isato, .ncinzz. in 
figura 3 si vece cne ciascun ncirizzo 3 
erececuio ia un numero orccrassivo. 
csomoreso ira ia sarenissi acute. <il. 
<2>. ecc. Questo ille si Duo orecarars 
con l'Acpie Writer ‘a come sa si :raitas- 
se ci un testo cualsiasi. /clernco ancna 
senza numeri iniziali perché ssisie an- 
one ‘a cossicilita gi numerarae qui incinz. 
iematicamente inun seconco em. 


po. Ocpure si può creare partendo da 
Quik File //. spiendido programma per 
Apple e soitanto, che è una sorta di 
comecissimo e flessitilissimo Data Ba- 
se. Quick Sile infatti, tra le varie cpzioni 
dei suci menu. presenta anche quella ci 
îrasicrmare || file sui quale si sta lavo- 
rance in un file per Apple Writer ./e. 

In pratica questo cosa significa? Che 
se si mettono i propri dati di base su 
Quicx File. assi cotranno assera sele- 
zicnati, riordinati = manipolati come si 
vuole. ?ci. così acattati. sossono esse- 
re trasîeriti in un file cer Apple Writer ./a, 
a da sui servire da dase cer !a costru- 
z'one auicmatica cei cocumenti diù 
svariati. 

Secondo asempio. Supconiamo ci 
cover comunicare settimanalmente a 
‘uti memori dell'alta direzione cella 
nostra azienca i risultati di vendita ci 
«Ra cecina ci orcactti. 3 ci volerio iara 
con una nota interna cuanto ciù cossici- 
a cersonalizzata. 5 di cover. sci, comu- 
sicare non iutti. ma solo una varie degli 
stessi cail. alla forza ci vencita, scecen- 
20 iattera cersonalizzate a ciascun ven- 
zitera. 3 infine ci dover inviare ai vari 
«Spattori ci vencita un resccento cne ci- 
‘ra ai cati zi vencita generali contenca 
neicazioni sne nettano a conîrenic li 
‘encimento cei singcii vengitori. 

000: mmaginiamo ci cover ‘ar gue- 
sio ‘avcro ‘Uta ‘e settimane a ci aversa 
one rara con una cecina di alti cirigenti. 
ina ventina ci ispettori ci vencita 3 un 
aio ci centinaia ci vencitori, si uc ora- 
3umers one con tutta ‘a 2ucna veicntà 
+S&nco sistemi iracizionali >ccorrarao- 


gIcroaia. 3 3 


‘a DErsenalizzazione 3 sar? MASSIC- 


2 a ciccocianca. 


pa 
nveca. 38 2: si 3 Organizzati 3 si :engo- 
no aggicrnan ‘uti i call zi ‘vencita nel 
Quick . 3i Dosscno aversa 'e nostre 
200 lettera circa pronte in socc ciù ci tre 
ora. ma sccraituito. Sen un intervento 
umano neil'orcine cei cincue-zisci mi- 


Con un accosito eregramma in WFL, 
la 


nuti. Teme si ‘a? Si sesezicnano su 
Quicx Fiia | cai ci vencita Hievati, 3 si 
rasieriscono .n un ‘lis Aopie ‘Mriter /a, 


Questo civenta ‘unico ‘avero vero d 
fara iuita a settimane. Sci si cniece 
l’asecuzione ci un oregramma ‘NFL 
scritto una «cita cer iUite. E si va a pe- 
3cars. 

Jaciamo cosa scvra ‘ara i costro 
2regramma Pl. ama zi tutte ccvra 
cancara ‘n mamona una ‘attera 1cc <e- 

incanti. 301 3cvra ancara a 
cercare son i scemi 3 gli avenivali 
incirizzi «interni > asterni) cei cirigenti. 
301 oraievera cme a incirizzo cei cri- 
® 3.0 nserira nella ‘ettera 
rivo. Semora calla ettara îinc. acegua- 
E ciscesta. 2ovra rserira i 
ona orelevera sai 


Termazione 2a ILicx 


2 uni dati 3010 
Ccno interessare : cirigen- 


ì ettera 3 riparera e sies- 
azioni Der ciascun cincente. 
ua a ettera ceri virigenti. cancellerà 
auicmallcamente calla memoria ‘a !et- 
era. cer scstiuiria con la ettsra ico. 
ziversa. ala a venciton. Ancra a 
3Uarcare un “le ronterente | ecm 2 gli 
inzz: ci 2uesti ultimi, orsievera | gati 
zi vencita one si intence comunicare ai 
renciteri. ma scio cuelli a non ancne gli 
n *servati 2 Zirigenti > agli iscettori. 
Siamcera a ettere una cer una. i sci 
"comincara zi nucvo. sen srececura 
r gii ‘spetteri i vencita. 
Seno scie zue asemri. Zuailo ch 

zenia è | 2rincicio: (e acplicazioni 20S- 
icno assera .ntinite. Mci ci icclicando 
saremo ieti ci 2uctiicara ‘e oiù interes» 
santi one ci verranno segnalats. 


Come illustrare le vostre fortune 
senza spendere una fortuna. 


MONZZAre 


a desiderate «La ici 


noltre. con i programmi Stron 
care i vostri grafici. sceglier 


: MOI 
1 in iluano, 

se non basta, esiste Una uri 
‘ompatibile con il plotter Strobe 100, come ui i esempio lp 


NUO è IEOSO es; 


be dedurre solo dai !ur 

n, con ii Plotter grafico Sirobe 100 
‘e diseumi 1 colon di Qu: 
)claboratore persor Lu 


DA] 
one di sotware 


dnale, direttamente con 


costo molto più Dasso di tri 
| Plotter Strode trasiorma insiemi di dati in dinamiche VisiCalo 

ni. con pochi e semplici comandi del vostro computer. Visitate oggi stesso il vostro rivenditore di fiducia. Vi spi 
i riducono così 1 pochi minuti I modo migliore per ilus strare 


aVOro ne r produrre le vostre tortune 


NIOMMEAZIONI 


n Sogrammi, curve 


robe, con li precisione uel 
) punt il upera 
conio li qualità ul plotter cne 


SENO Dareochi MINI «li piu FS PRI 


RI TTT 


SISTEMA GRAFICO STROBE © 


Vedere per credere. PIT PTT 


3} 


È 
) ERE OOO EI 


10 applic® 


ine ni bile ila inte iti iii citi Guidi ibi 


LÀ L11525 «vin 243 
o 


adizugiabio cette 


agno e colla da falegname. un naso 
— sempre più lungo cer via delle dugie. 
3a cer amici il gatto e ia volpe: Pinoccnio. 
zon buona pace di Collegi. non e più 
scio questo. Negli uîfici delle Nuove 
Edizioni Carroccio ancne ii celecre du- 
rattino na mangiato ‘a mela, 3 ii nuovo 
roiume ancor fresco d'inchiostro va in 
‘ibreria puntualissimo ai orimi ci maggio 


grazie a VVisiSchedule. “Fare uscire un 
ibro nen è semplicato come ‘i iancio ci 
una capsula Acollo". sice Sancro Sac- 
ci. amministratore cella casa acitrica, 
‘ma nen 3 nemmeno semplicissimo 
occorre ccorcinare i :emoi di composi- 
zione. di correzione celle sozze. ci im- 
postazione cralica a ci stampa. sposan- 
coli con i tempi di orecuzione degli aitri 
‘ciumi. in meco ca sîruttare al meglio e 
riscrse cisccnibili...* 


ee ei e eee 


I III | 


Testi da rivedere, bozze da correggere, volumi da stampare. 
Il probiema era quello di programmare e ottimizzare. 
La Carroccio, specializzata in libri per ragazzi, ha adottato il 
VisiSchedule. Giulio Verne non l'aveva previsto. 


ome lancio 
Pinocchio 


Nate n 


nni cinquanta cegli Stati 


Initi cer facilitare .a messa a cunto.del 
oregramma si armamenti 3ciaris. le 
ecnicne cei Paericrmanca avalua- 
Review Tecnique) 3 cei Com 
?ath Methoc) nanne :rovato 


ni ciù pacificne. :ra ie Fa- 
2ntaine 8 i ‘Viaggi ci 
eri e ii Corsarc nero. Ver- 


algari alla Tarreccio 2 di 


ipato «i viaggio dalla 


[d 
RETE II rn 


avrebbe mai pensato che per pubblica- 
re i suoi libri qualcuno un giorno avreb- 
be utilizzato gli stessi strumenti di pro- 
grammazione impiegati per il lancio dei 
missili spaziali. 

“L'idea mi è venuta leggendo un arti- 
colo che descriveva proprio i preparativi 
per un lancio spaziale”, dice Bacci, 40 
anni, sette dei quali passati come diret- 
tore commerciale del Gruppo Editoriale 
Fabbri prima di decidere, con alcuni 
amici, di rilevare la vecchia e gloriosa 
Carroccio. “Di computer non sapevo 
nulla, non me ne ero mai occupato, e se 
devo essere sincero, ancora oggi mi 
sento piuttosto un profano. Ma, mi son 
detto, abbiamo in preparazione una 


ventina di titoli all'anno, vogliamo razio- 
nalizzare al massimo tempi e metodi di 
lavorazione, non vogliamo appesantirci 
più del necessario con il personale... 
Tuttavia pensavo che occorresse stan- 
ziare almeno una cinquantina di milioni 
per far qualcosa di serio, per cui stavo 
per rinunciare. Poi ho scoperto l'Apple Il 
di un amico; è stato lui a spiegarmi co- 
me fare.” 

Ha risparmiato denaro grazie a Visi- 
Schedule? “E difficile dire quanto, visto 
che la nuova Carroccio ha adottato que- 
sto metodo di lavoro fin dal suo rinasce- 
re, circa un anno fa, quindi mi è impossi- 
bile un paragone col passato. Quello 
che so per certo è che non viaggiamo 


più per approssimazione. Quando un 
revisore dei testi chiede per quando 
serve un manoscritto sappiamo con 
precisione che data indicargli. E anche 
con la tipografia i rapporti sono facilitati 
perché sanno che sui nostri tempi pos- 
sono far conto. Il VisiSchedule comun- 
que permette facilissime revisioni: se 
una certa consegna che doveva avveni- 
re oggi arriva invece domani, il pro- 
gramma ricalcola automaticamente tutti 
i tempi che possono esserne influenza- 
ti... C'è un mio amico, direttore di stabili- 
mento di una grandissima casa editrice, 
che adesso vuole adottarlo, su Apple, 
per programmare i tempi delle rota- 
tive..." 


Manpower 


ota! etfiont 


Manpower così 


Mai più 
in ritardo 


In questo esempio pratico sono ipo- 
tizzate le lavorazioni di due volumi 
ottimizzando l'impiego sia delle la- 
vorazioni esterne come la composi- 
zione, la fotolito e la stampa, sia dei 
collaboratori interni ed esterni come 
redattori e correttori di bozze. Auto- 
maticamente il VisiSchedule evi- 
denzia graficamente quelle lavora- 
zioni che possono subire ritardi sen- 
za provocare lo slittamento della 
data di fine stampa dei volumi. E 
così possibile intervenire in deter- 
minate fasi per recuperare gli even- 
tuali ritardi. Non solo, ma è anche 
facile ottimizzare l'impiego delle for- 
ze lavoro in modo che non vi siano 


giorni di “troppo impiego” e giorni 
“troppo tranquilli”. Il VisiSchedule 
può inoltre sintetizzare ogni lavoro 
(job) evidenziando il primo giorno in 
cui può iniziare (in quanto gli altri 
lavori ai quali il suo inizio è subordi- 
nato sono terminati) e l'ultimo giorno 
in cui deve finire se non si vuole che 
il ritardo influisca sulle fasi succes- 
sive. Infine, il VisiSchedule può an- 
che calcolare il costo totale di una | 
lavorazione: basta accoppiare a ;| 
ogni lavoro il numero di persone ad- . 
dette e la loro retribuzione periltem- ‘| 
po relativo. Nell'esempio pubblica- | 
to, omettiamo per discrezione le ci- 
fre, ma ci assicurano che sono mol- 
to basse, non perché il personale | 
impiegato viene pagato poco, ma | 
perché con il VisiSchedule il lavoro 
è ottimizzato al punto di ottenere | 
davvero grandi risparmi. | 
ii 


as 


senza alcuna fatica tutti i 


apparsniementie più astrusi, come la varianza. 
la curiosi... Con questio ottimo ele 
cnetto a tutti i suoi apcona 


regala 


(02) 


orescindere dalla oreparazione > 
À carla professicne. ia maggior darte 
gi noi ha un'idea abbastanza precisa ci 
cosa significa il termine “media”. Stati- 
siicamente la mecia viene calcciata co- 
me somma ci tutti i casi divisa der i 
numero cei casi. Quando si fa ia mecia 
di un complesso ci numeri si ricava un 
unico cato statistico che comcenaia 
zuei numeri. La statistiche sommarie ci 
questo tipo sono utili ser comunicare 
agli altri l'aspetto di un insieme ci cati 


senza dover riferire ogni singolo ale- 
mento. 
Per asempio è più semolica cire cne 


a mecia cella 3ciletta mensile ceil’ 
nercia alettrica nell'anno vassato 3 sta- 
‘a ci 73.0C0lire. che non siencara saca- 
‘atamente :utte ‘e scilette. 
ancor diÙ avicente ‘ea assenz 
zuanco si na a che fare con un 3 
numero ci casi iper ssemcio a statura 
nedia cell'ucmo). 

Per zuanto statisticne cei zenera si 
necninne ciù scesso nelle actizie zi 
zicrnale 3 nei risuitati celle ricercne 3 
elle inchieste. asse scno altrettanto 
stili nell'amciente zegli aîfari cer ce- 
scrivere e vencite ci ‘n articcio in cn 
seno arco ci ;emeo. cer comcerciara 
zii incassi 3 così via) 3in casa bolleits 
ze! servizi. calcoli ci ciiancio accetera). 

-a nosira sccieta a straorcinariamen- 
e orientata sui numeri. Guarciamo gii 
ncici di corsa der stavilire se ‘e azioni 
seno salite 0 scese nella giornata. Se- 
zuiamo | sollettini metecroicgic: ce:la 
‘elevisione cer vedere come sia .a :em- 
seratura caierna in confronto con cuella 
“ipica cella stagione. 3 quanta sicccia 
ia cacuta n media. Stuciamo ;'incice 
crezzi al consumo er ‘vecera com 
sia ancata cer il nostro tenore ci ra. = 


Ciò civenta 
le! 


da conîrcniar 


U di 


no 


Supponiamo di avere una serie di casi (fino a 225) 


e con altra serie (fino a 20), e di volerne ricavare 
possibili indici statistici, compresi quelli 


one cosa dobtiamo attenderci 
oressimo futuro. 

il oregramma di statistica descritto in 
zuesio articolo vuo aiutare ii iettore a 
creare di oersona qualche numero si- 
gnificativo. cne gli cotra assere utile 
zualuncue sia la sua attivita. Ssaminan- 
co i regramma sc aseguencelo con 
orecri cali si acquisterà una sadronan- 
za niuitiva cel significato dei cati siati- 
atic: > si otterra ci “sentire” come assi 
siano in relazione gli uni con gli aitri 
to li eregramma del 'istato in 
sic 9er un Accpie !l i ca 


per !l 


nolessi I 
run ica analisi iper asem- 
giungenco altri casi cuanco ci. 
entano cisccnicili). Con un co ci iavo- 
‘o covrebce assere relalivamente iacile 
rccificare il orcaramma ser ‘uso cen 
ma munito scio ci ‘ecistratcre 3 
U avanti nell'articolo caro in 

ni ser uso con una 
nre. > acciriitura 3 
mma > staio 
unziona ser 


| orogramma (veci ii 
‘a sommaria ser 

) vamatili > 225 casiin 
1ECS IUIDUI 


en titcio 3 cata. num 
2icne automatica cella pacina. ‘ace! 
revisione 30 aditing cei zati c 
casi 9 zi qualcne caro selezionare 
Cì. ia "ecistrazicne su cisco 3 a 
dal cisco cei datì 3 ii ira 


autame 


zail statistici CI ciascuna vai 
Iemeranceno ‘a somma gl iUitl: 
vecia ariimetica. i valcri Massimi 


standard, 
he Applicanco 


ch 
. diventa facilissimo... 


l'errore 


nimo. l'intervallo del casi. ia varianza. ‘a 
ceviazione standara, l'arrore stancara 
ceila mecia. l'asimmenria. ia curtosi 3 i 
numero cei casi. inoltre il oregramma îa 
un conteggio ci ireauenza per ciascuna 
rariatile » stamoa un istegramma (otta- 
nuio neciante una serle ci asterisc: 
ser mestrara l'ascero sella cisivibuzio- 


"e cai call. 


n 


Sc iegazione 


statistici 


spia 
Sti 


dati 


comorsncera , dall 
cen moli grazie è ZUEeSIO Dro- 
, Yegiamo suesio sreve asem 
poniamo ne si ‘eglia recar: 
Iarete di sono :umata .n 

zue mesi. 2ar ‘ario si introcu- 


ceile rette iumats n 
I 30 ziorni. Deco cne si 3 
i srogramma i “isuitati cctrso- 


as eito ci cuelli in Figura : 
imma 2002) a ii numero :ctaie 
e ‘umate curante i 


a 109. 366687, È) 


orecramma siamca sci i nassimo 
3 il minimo 173) cella variacile. Dosi 
nassimo selle sigaretta ‘U- 


sumer 


stancare scono 
IVenNe «a 
NES ‘valot 
perenni Più sicccle scr 
iù uncino alla Media si accen- 
ralcn cei cati. ziù omo- 


ceviazione 


ossia 


Statistiche È 
per tutti 


geneo è il complesso dei dati. Matema- 
ticamente la deviazione standard non è 
che la radice quadrata della varianza. 

Secondo gli statistici, se si prelevas- 
se un numero infinito di campioni equa- 
lizzati da una data popolazione, la me- 
dia di ciascun campione sarebbe una 
stima della media vera della popolazio- 
ne, ma non tutti i campioni sarebbero 
identici. Il modello di quelle medie costi- 
tuirebbe una distribuzione normale e 
avrebbe una deviazione standard. La 
deviazione standard di questa distribu- 
zione è l'errore standard. Così l'errore 
standard ci aiuta a determinare il poten- 
ziale grado di discrepanza fra la media 
campione e la media (solitamente) 
ignota della popolazione. In generale le 
statistiche si fanno solo per campioni: 
per esempio il nostro studio sulle siga- 
rette rappresenta solo un campione sin- 
golo di tutti i periodi di 60 giorni che 
avremmo potuto esaminare. 

Asimmetria e curtosi ci dicono qual- 
cosa sulla forma della distribuzione dei 
dati. Un valore positivo dell’asimmetria 
indica che i casi sono raggruppati sulla 
sinistra della media (estremità inferiore) 
con i casi estremi sulla destra. Un valo- 
re negativo indica l'opposto. Si vedrà un 
valore vicino a zero (come nell'esempio 
delle sigarette) quando la distribuzione 
è una normale curva a campana. 

La curtosi indica la forma relativa, ap- 
piattita o appuntita, della curva dei dati. 
Una distribuzione normale avrà una 
curtosi di zero. Se la curtosi è positiva 
allora la distribuzione è più appuntita 
(stretta) di quanto avverrebbe per una 
distribuzione normale, mentre un valore 
negativo significa che è più piatta. Il va- 
lore positivo del nostro esempio (0,46) 
indica che la distribuzione ha un picco 


leggermente più alto di una curva nor- 
male. Per vedere la forma della distribu- 
zione nel nostro esempio si giri la Figura 
1 sul fianco con il grafico a barre rivolto 
verso l'alto. | due punti più alti (9 giorni 
con 29 sigarette al giorno e 8 giorni con 
35 o 36 sigarette al giorno) sono la ra- 
gione della curtosi positiva. 

Infine guardiamo un po' più da vicino 
le sezioni dell'output che riguardano il 
conteggio della frequenza e l'istogram- 
ma. Nella colonna intitolata Valore so- 
no elencati tutti i valori che gli elementi 
dei dati hanno assunto per quella speci- 


Fig. 1. Un esempio di utilizzo del 
programma: tutti gli indici statistici 
ricavabili da una serie di 60 casi. 


3 
à 


fica variabile. Freq rappresenta il nu- 
mero delle volte in cui il valore dei dati 
sulla sinistra è comparso nel complesso 
dei dati. Per esempio ci sono stati 3 
giorni in cui sono state fumate 19 siga- 
rette, 9 giorni in cui sono state fumate 
29 sigarette e così via. 

La colonna % ci mostra la percentua- 
le dei valori dei dati che ciascun conto 
rappresenta. Per esempio nel 6,67% 
dei giorni presi in esame sono state fu- 
mate 30 sigarette al giorno. La colonna 
% Cum comunica la percentuale cumu- 
lativa, ossia la percentuale totale per 
quel valore dei dati più tutti gli altri valori 
minori dei dati. Così per il 41,68% del 
tempo sono state fumate 31 o meno 
sigarette al giorno. 

La colonna Istogramma delle fre- 
quenze è il nostro grafico a barre corri- 
spondente ai valori dei dati ottenuti: non 
è che una rappresentazione sotto forma 
di immagine della frequenza con cui si è 
presentato ciascun valore dei dati. Ogni 
asterisco sta per una frequenza di dati 
(fino a un massimo di 85). Qualsiasi 
frequenza maggiore di 85 sarà raffigu- 
rata da 85 asterischi in stringa. Si noti 
comunque che il numero effettivo è rac- 
chiuso fra parentesi dopo la stringa di 
asterischi. Nella maggior parte delle oc- 
casioni, dato che ci si è limitati a 225 
casi per variabile, il limite di 85 asteri- 
schi non costituirà un problema. 


RETTORE 
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Esecuzione del programma 


Dopo la presentazione, verrà chiesto 
un titolo (fino a 80 caratteri) per l'output 
voluto, a linea 110. Di solito è meglio 
dare un titolo che descriva lo studio o il 
tipo di dati, per esempio INCASSI IN 
CONTANTI PER IL PERIODO DAL 


01/04/83 AL 30/06/83. Sei mesi più tar- 
di. guardando lo stampato, non si dovrà 
stare a chiedersi che cosa riguardasse 
l'analisi. 

Poi si intreduce una data per l'esecu- 
zione. Per la data si deve usare una 
stringa di otto caratteri, come in 15/04/ 
33 0 15-04-33. 

Pci verra chiesto: Intreduci dati dal 
disco (S/N)? Se si vuoi analizzare un 
complesso di dati salvato in oreceden- 
za così com'è, 0 se si vogliono aggiun- 
gere dati a un complesso del genere si 
prema $S. Se si introducono tutti i dati 
direttamente con ia îastiera si orema N. 
Se si oreme 3 il programma va alla rou- 
tine Lattura del Disco che comincia alla 
linea 1650. 

Doro ia fornitura del nome cei ‘ile ci 
dati ‘’Appie 'egge il numero celle varia- 
giii {NVAR), il numero cei casi o scggetti 

Ni), il vettore dei nemi variabili :NA- 
MESIl)) a il compiesso dei cati (A(1.4)). 
Se si cesicera aggiungere aitri casi ai 
cempiesso ci dati cel disco si risponde 
3 .si) alla relativa comanca a si incica ii 
numero cei casi aggiuntivi cuanco vie- 
ne chiesto. Purche ii numero :ctale cel 
si non superi il limite cai oregramma. 
S. il pregramma chiederà ci comin- 
ciare a intrecurra i dati aggiuntivi ‘linea 
280). Se non sono stati incicati casi ag- 
giuntivi ia Descrizione cei Dali sassera 
zirattamente alla fase ci scitravisicne 
linea 460). 

si > iscosto VW alla 2omarnca in- 
reduci sati ai sisco /SiN) 3 crevisio 
one si incicni :l numero cei casi. dei 
sccgatti a dei nomi ceile variaciii. Si noti 
orogramma controlla i valcn mas- 
simc 3 minimo ammissicili ser | Srimi 
massima ci sel 
meme zi variacile. 
Reitra se. 2Uanco viene oniesic 2GNI 
roma variaciie 3i oreme soitanto o Se 


MISS 
iu .i numero cella variaciie: Der asem- 
io VARI. VARZ 3 cosi via. Cuanco 
nvecs i dati vengono ‘etti cai cisco. ie- 
ne ‘atta al :smco siesso ancne i nome 
attriuito alla ‘variaciie, > cosi =cn 3 ne- 


nput di cati dalla astiera viene ianto 
rutto sulla zuama “ga delle scnermo. 


no chiaramente !ncicati sia :i numero 
ci vantacile. 


3cggetto sia | nome 


‘un nuove soggetto icasc) si riceve inci- 
cazione da ‘un unico cio: THEFSI7) a 
inea 380. !n zuesio neco si zosseno 
cigitare i vaicri cel cati senza cover con- 
trellare continuamente ‘0 scnermo ser 
‘vecere se incomincia un nuovo caso. io 
ci:reve utile, nacninenia censa così, o 
c censicera iasticioso. icn na cne ca 
‘iscrivere ‘a ‘inea cosi: 


10° ONERR GOTO 2440 

20 REM HRKERbA bt ARA 
ETTETEETERIChI 

30 REY * APPLICANDO - PAG.TITOLO 
+ 

d0 REM HRHHELLHAARAAHE 
CETTETTETEECI 

50 0$ = CHR$ (O:NI=0 


60 DIM 
NAME$S(20) ,A(225,20) ,CT(225) ,VL(2 
25) 


20 TEXT : HOME : FORI=1| 7020: 
PRINT “4=*;: NEXT I: PRINT 

80 PRINT ‘STATISTICHE 
PER TUTT I*: PRINT : FOR 
I = 1 T0 20: PRINT *#=*;: NEG 


4 

90 VTAB 23: INVERSE : PRINT ** 
(C) STEVEN A. SCIWARTZ, PH.D. 
1982 #': NORMAL 

100 FORI=1 70 3000: NET I: 
HOME 

1i0 VTAB I: HTAB i: CALL - 958: 
PRINT *TITOLO? (80 CARATTERI 
MAX) 1%: PRINT: INPUT "*;TITL53 

120 IF LEY<TITLES) ) 90 THEN 
110 

130. VTAB 3: HTAB 1: CALL € - 958: 
INPUT “DATA <ES., 02/11/99): 
“(0T$x IF LEN (DTS) € > 9 
THEN 130 

140 VTAB 3: 1738 1: CALL - 368: 
PRINT "DATI SIA” SU DISCHETTO 
(S/N)? "i: SET 2$: PRINT 23: IF 
TRE DS ND DN 
THEN 140 

150 IF 23 = *S* THEY 16530 

150 REY #R44433#444KKXH4H43 
CECRELECECERI 

170 REY + INPOSTA NO.VARIABILI i 
TASI + 

1300 REM 4448244 4#4434#44H%3 
IREECELLE CERI 

190 PRINT : INPUT "NUMERO DELLE 
MARIABILI? ";NVAR 

200. IF NVAR | i THEN  INVERSE ; 
PRINT *LE VARIABILI DEVONO 
ESSERE ALMENO 1.*: NORMAL » 
SOTO 190 

210 IF NVAR> 20 THEN INVERSE i 
PRINT *NUMERO MASSIMO DELLE 

GOTO 


VARIABILI = 20": NORMAL : 
190 

220 PRINT : INPUT "NUMERO DEI 
CASI? a CASE 

230 IF CASE | = i THEN  INVERSE 
: PRINT "DEVI AVERE PIU” DI | 
CASO, ": NORMAL : SOTO 220 

240 IF CASE ) 225 THEN INVERSE : 
PRINT “NUMERO DEI CASI: NON 
PIU” DI (225)": NORMAL : GOTO 
220 


250 REN 4844544444384 45RA HE 
IETETLELESÌ 
250 REY * NOMI DA ASSESMARE ALLE 


C VAR * 

VIIMB (> BETTETTTECETTEEEETTTrI 
ECTELEEREDI 

280 HOME : PRINT "NOMI VAR, 
CRETURN PER DEFAULT)": PRINT» 
PRINT 

290 FORI = 1 TO NVAR 

300 PRINT TABC S)*VAR, *;1;* = 


, 

310 INPUT NAMES(1) 

320 IF LEN NAMESII)) > 5 THEY 
INVERSE : PRINT "MASSINO 6 
CARATTERI. ": NORMAL : GOTO 2300 

330 IF NAMESCI) = "* THEN 
NAMESCI) = "VAR* + STR$ (I) 

340 NET] 

350 REM 4444448844444 

360 REM # INPUT DATI è 

370 REY 4444444444444 

380 FOR I = NI + I TO CASE: GAOME 
: PRINT CARS (7); 

390 PRINT "DATI PER CASO il 

400 FOR J= i TO NVAR 


410 TAB 4: NTAB i: CALL - 353 

420 PRINT NAMES(J);* = *; 

430 INPUT ACI,J) 

440 NEC | 

40 NET | 

160 VTAB ji: HTAB $: CALL - 298: 
INVERSE » “PRINT *CORREZ./RE)IS 
DTI (SAN)? "ji NORMAL : SE7 
28: PRINT 28: IF 28 ( ) ‘9% 
AND 24 < THEN 160 


170. IF 8 = *5" THEY 
480 2E4 44443444444 
490 REI + ANALISI + 
300 24 48444344444 
319 FOR J=: TO MAR 
320 PRI: AME : ATAB?: FLSSH è 


S0SUB 2039 


PRINT _CHRS (7); CARS 
(7) ATTENDERE 
CALCOLANDO* venni 
3 :342/= diM9 = Dita 
2ASE 
DCI y4) 1062 = 2 
NI + ACI} S) 
A(1,0) © 4 
570 ic SM / CASE 
THEY. ju) 
570 FORI=270 case 
580 IFAC, ) = MN THEL ZIO 
590 2=1 
700 N = ACC) 
710 NEGI 
720 RANGE = SAX - N 
730 $$ =) 


740 FORI=1 TO CASE 

250 SS = SS + (ACI,J) - NEAN) * 2 

760 NEXT I 

770 92 = SS / (CASE - 1) 

780 SD = SOR (52) 

790 SE = SD / ( SOR (CASE)) 

800 H = (<M3 - 3 * SUM / CASE * N2 
4 3 # (SUM / CASE) * 2% SUM) / 
CASE) - (SUM / CASE) * 3 

810 0 = ((M2 - CASE * (SUM / CASE) 
* 2) / (CASE — 1)) * 1.5:SK = H 


/0 

820 H = ((M4 - 4 & SUN / CASE # M3 
+ 6 * (SUM / CASE) * 24M2- 4 
# (SUM / CASE) * 3 # SUM) / 
CASE) + (SUN / CASE) * 4 

830 0 = ({M2 - CASE * (SUN / CASE) 
* 2) / (CASE - 1)) * 2:KR=H/ 

ssa 


840 REM xEXAXAAEREAAEAE LIRA 


850 REM * SORT ISTOGRAMNI + 
860 REN xEXAXKAEKEAARAAAATI 


870 N = CASE 

880 M= INT (N / 2) 
890 IF M= 0 THEN 1060 
900 K = CASE - N 

g0 Ji=1 

920 11 = Ji 

930 Li = I + N 


940. IF ACIT,J) < ACLI,J) THEN 
1000 

950 T = ACII,J) 

960 ACII,J) = ACLI,J) 

970 ACLI,J) = T 

980 11 = IH - M 

990 IF II ) = f THEN 930 

1000 Ji = Ji +1 

1010 IF Ji > K THEN 880 

1020 GOTO 920 

1030 REM #3505600595960066 

1040 REM * CONTO FREQUENZE # 

1050 REM 2665600369906 

1060 CT(1) = 1:VL(1) = ACI, iL = 


I 
1070 FOR J = 2 TO CASE: FOR Il = 
ITOL 


1080 IF AC(1,J) = ULCII) THEN 
CTCII) = CTCII) + 1: GOTO 1110 

1090 NEXT II 

1100 L= L + 1:CT(L) = 1:VL(L) = 
AC1,3) 

1110 NOTI 

1120 REN CICETTTETEI 

1130 REM + STANPA + 

1140 REM #8*4X3XXkK 

1150 IF J= 1 THEN PRO: HOME: 
FLASH : PRINT CHR$ (7); CHR$ 
(7) "ACCENDI LA STAMPANTE E 
BATTI <RETURN),..";: NORMAL : 
GET 2$: PRINT 28: IF 284 ) 
CHR$ (13) THEN 1150 

1160 PRÉZ1: PRINT CHR$ (15) + 
CHR$ (9) + "132N" 

1170 GOSUB 1580 

1180 PRINT 


1190 PRINT "SOMMA — = ";SUM;: 
dr 36, i PRINT “VARIANZA 


1200 BRINT "NEDIA = "jMEAN;: 
catia 439: PRINT "DEV.STAND. 
=": 

1210 PRINT "MASSIMO = *;MAX;: 
POKE chi 139: PRINT "ERR.STAND. 
= 3 ;5 

1220 PRINT "MINIMO = ";MY;: 
POKE 36,39: PRINT "ASIMMETRIA 


1230. PRINT "RANGE = = ";RANGE;: 
FO 26,99: PRINT "CURTOSI 


1240 PRINT» PRINT "NO. DEI CASI 


I 
1250 PRINT 
1240 REM 66000 
1270 REN + STAMPA ISTOGRAMI + 
1280 REM #X4RRERARAREREAAERAE 

1290 PRINT "VALORE CONT. 
% CUM. %*;: POKE 34,39: 
PRINT "ISTOGRAMMA FREQUENZE" 
1300 PRINT hi 


1310 CPCT = 0 

1320 FORI=1TOL 

1330 DOT = CTCI): IF CTCI) ) 85 
THEN DOT = 85 

1340 PRINT VD) i POKE 36,13: 
PRINT CT{1) 

1350 PCT = ch / CASE:PCT = INT 
(PCT * 10000 + .5) / 100: IF 
PET ) = I0 AND PCT < 100 THEN 
POKE 36,20: GOTO 1390 

1360 IF PET < 1 THEN POKE 36,22: 


() 
1370 IF PCT = 100 THEN  POKE 
36,19: PRINT "100,00";: GOTO 


1410 

1380 POKE 34,21 

1390 X$ = STR$ (PCT): IF PCT = 
INT CPCT) THEN X$ = X$ + ",00" 

1400 PRINT X$; 

1410 CPCT = CPT + PET:CPCT = INT 
CCPCT * 100 + ,5) / 100: IF1= 
L THEN CPCT = 100: POKE 36,29: 
GOTO 1450 

1420 IF CPCTK1 THEN POKE 
36,32: GOTO 1450 

1430 "IF CPCT < 10 THEN  POKE 
36,31 


, 
1440 IF CPCT ) = ID ANDCPCI< 
) 100 THEN POKE 36,30 
1450 X$ = STR$ (CPCT): IF CPCT = 
INT CCPCT) THEN X$ = X$ + *.00* 
1460 PRINT X$; 
1470 POKE 36, 3: FOR Ki1=1 T0 
DOT: PRINT "8*;: NEXT Ki: PRINT 
* (CTC); " 
1480 NEXT 1 
Segue a pag.26 


380 FOR | = N1 TO CASE:HOME 

Dopo l'input, se si vuole fare l'edit dei 
dati o rivederli prima dell'analisi si pre- 
me S rispondendo alla domanda Edit/ 
Revisione dei Dati? Questa opzione 
del programma permette di esaminare 
e/o cambiare tutti i dati o certi casi scelti. 
Se si preme T quando viene chiesto 
(Tutti i casi o i casi (S)celti? si devo- 
no riesaminare tutti i dati, un procedi- 
mento lungo quando si ha a che fare 
con un gran numero di soggetti. Co- 
munque se si sospetta che ci siano er- 
rori solo in alcuni dei casi, la scelta S 
accelererà notevolmente il procedi- 
mento di editing e revisione. 

Quando si rivedono tutti i casi viene 
mostrato un caso alla volta e viene chie- 
sto di premere: <Esc> per Edit; 
<Return> per continuare. Premendo 
il tasto di ritorno si passa al caso suc- 
cessivo. Quando sono stati mostrati tut- 
ti i casi hanno inizio i calcoli. Se si trova- 
no uno o più valori di dati sbagliati o si 
vuole semplicemente cambiare, si pre- 
ma il tasto Escape. Poi si indichi il nu- 
mero della variabile che si vuol cambia- 
re (contando in giù dalla sommità se 
non si sono usati i nomi variabili di omis- 
sione, per esempio VAR1, VAR2 e così 
via). 

Infine si introduce il nuovo valore per 
la variabile. Se si è scelta una variabile 
sbagliata basta reintrodurre il suo valo- 
re originale esatto. Adesso lo schermo 
sarà aggiornato in modo di mostrare 
l'effetto del cambiamento apportato. Si 
può continuare l'editing del caso pre- 
mendo nuovamente il tasto Escape. Si 
prema Return quando si vuol passare al 
caso successivo. 

Il modo di editing dei Casi Scelti ope- 
ra in maniera analoga, con la differenza 
che si deve indicare lo specifico # del 
caso da rivedere (0 0 per finire) prima 
di fare l'edit di ciascun caso o di riveder- 
lo. Quando si preme 0 incomincia l’ana- 
lisi. 

Le analisi vengono eseguite su una 
variabile alla volta. Quando ha finito per 
la prima variabile, l'Apple emette due 
bip (linea 1150) e viene chiesto di ac- 
cendere la stampante e di premere Re- 
turn. La linea 1160 avvia l'output alla 
stampante (PR#1) e la imposta sul mo- 
do delle 132 colonne. Si noti..che 
CHRS(15) è uguale a un Control-O, il 
comando che imposta una stampante 
Epson sul modo della stampa conden- 
sata. CHRS(9) è un Control-I. Si faccia- 
no gli opportuni cambiamenti in questa 
linea se la scheda della stampante è in 
uno slot diverso dal numero 1 o se si 
usano caratteri di controllo diversi per 
impostare la stampa a 132 colonne. 

Da questo punto in poi non si ha biso- 
gno di intervenire nel procedimento fino 
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a quando sono finite tutte !e analisi. Il 
programma fa una pausa dopo avere 
stampato i risultati di ciascuna variabile. 
Non c'è da allarmarsi: ci vuole tempo 
per fare tutti i calcoli necessari e più 
sono i casi più lunghe sono ie pause. 

Da ultimo il programma chiece se si 
vuol salvare su dischetto il complesso 
dei dati. In caso positivo si preme S a 
poi si attribuisce un nome al file dei dati, 
quando viene chiesto. Se si vucie scri- 
vere sopra un vecchio file ci dati si ria- 
doperi io stesso nome. Altrimenti si 
scelga il nome che si vucle (ma atten- 
zione a non cancellare cosi, involonta- 
riamente, un file con io stesso nome 
preesistente e prezioso), si inserisca un 
dischetto e si prema Return cuanco si è 
pronti a incominciare a salvare. 


Trattamento degii errori 


Cltre a vagliare un aperecria:o arco ci 
ristoste quando 3 richiesto Un dUICUI 
numerico iper asemoio ‘e .inee 200. 
210. 230, 240), ‘a giusta iungnezza cel- 
'e stringne di caratteri iper asempio e 
linee 120, 130, 320) a ‘e ‘iscoste am- 
missibili alle domande icome s !icaso ci 
3 cer si 2 di N ver no), ii stogramma na 
ranci routine ci =; situate ira a 


sulla 2400. ‘vaglia gli arroni zi et 
nei disco: ia seconca Traita gii > 
scrittura sul cisco: !a (erza i 
‘utto. one tratta input zi cati ilecaii 3 
altri arroni non specificati. 

orima iinea sei crecramma ‘2 
ta ‘a; reutine orima era 


zi >rrera Aociescito DCS.F 
3a | zocice ci arrore 3 25 
scesia 3 una ricniesi 


310 ci arrore a vien a? 
cetera ingresso. Ciò 3 intesc a imce- 
zire ene un cattivo ingresso ci cat cer 
asemcrio ti eslLiinveca ci 
315) menta oruscamenta ‘ine n 2ro- 
xramma. 

Se viene ncivicuare cualsiasi Niro 
liro ci arrcre i srogramma siamca i 


i arrora > a insa nella cuaie 
3 ventficato. ‘0 seno contrario 3 


il ouc soscencera '3- 
zione senza spegnere ia maccnina 
2 oremera Reset. 

Se li complesso iniziale cei cati 2 (etto 
za un zisk ‘ile ‘routine one comincia a 
inea ‘ 850) iutti gii srroni seno indirizzati 
alla rcutine a 2460. ‘/enceno vagliai 


Segue da pag.25 


1490 PRINT : FOR I=1 TO 132: 
PRINT * i: NEXT I: PRINT: 
PRINT 

1500 NET J 


1510 PRINT  CHR$ (12): PRE9 

520 HOME : PRINT “SALVI I DATI 
SU DISCO (S/N)? *;: GET 24: 
PRINT 2$: IF 2${ ) "S" AND 33 
<) "N" THEN 1520 

1530 IF 28= "N" THEN END 

1540 GOTO 1870 

1550 REI HRR RARA 

1560 REM # INTESTAZ.PAG # 

1570 REM 4896448008 

1580 FORI =! TO LEN (NAMESCI)) 
+ di PRINT *#*;: NEXT I: POLE 
36,131 - LEN (TITLES): PRINT 
TITLES 

1590 PRINT “* “iNAMES(U);* #.:: 
POKE 36,126 - LEN < STR3 (J)) 
PRINT "PAGE *;J 

1500 FORI=1 TO LEN iNAVES()) 
+ 41 PRINT *3°%:: NET i: POKE 
36,123: PRINT DT$ 

1610 RETURN 

1520 REI #%%4344444H4% 

1030 REM # DISK RESD + 

1040 REL 4444444444434 

1650 ONERR GOTO 2460 

1660 HOME : is : 
DEL FILS:*;: NORMAL»: 
3553 

1570 VTAB 3: PRINT “PATTI 
QUALUNQUE TASTO QUANDO Sc: 


PRINT "NONE 
INPUT * 


PRONTO"; 1 GE 23: VTAR ji ARR 
15: FLASH : PRINT *<STO 
LAVORANDO NORMAL 

1990 PRINT Bi 


1790 PRINT 35; 0PO 8 
1740 INPUT NVAR: INPUT NI 

1720 FORI =! TO NAR: PUT 
i 


1730 FORTIS! TONI: 


FORssi 
TO MAR 
1740 INPUT ACI.) 
790 NEG J 
1760 NET i 
1779 PRINT 93: 'CLOSE*;Fi 
1730. ONERR GOTO 3060. 
(790 ROME : PRINT "UUOI 


AGGIUNGERE DEI DATI DA 
TASTIERA?": PRINT *‘3 
N: pi SEI 2$: È 

} 'S" #ND 23 < 


1310 VTAB 3: HTAB 1: CALL 
INVERSE 
CASI ADDIZIONALI:*;: 
INPUT * “382 

1320 CASE = NI è N2: IF CASE } 255 
THEN INVERSE : PRINT ‘NUNESS 


- 358: 
: PRINT “NUMERO DEI 


NORMAL è 


MASSIMO DEI CASI = (225)": 
NORMAL : FORI =! TO 1500: 
NEXT 1: GOTO 1810 

1830 GOTO 380 

1840 REM ##BHOBUHR RIE 

1850 REM # SAVE DATI SU DISK # 

1860 REM FXARAKALEAKAFAAAARA RA 

1870 ONERR GOTO 2530 

1880 HOME 

1890 INVERSE : PRINT "NOME DEL 
FILE: 13 NORMAL : INPUT * 

";F8: IF F$ = "" THEN 1890 

1900 VTAB 3: PRINT "PATTI 
QUALUNQUE TASTO QUANDO SEI 
PRONTO. *;: SET 23: VTAB 5: HTAB 
151 FLASH : PRINT "{<STO 
LAVORANDO) )": NORMAL 

1910 PRINT D$; "OPEN" ;F$ 

1920 PRINT 0$;*DELETE*;F3 

1930 PRINT D$;*OPEN" ;F$ 

1940 PRINT DS$:<WRITE*:F$ 

1950 PRINT NVAR: PRINT CASE 


1960 FOR I = i TO NVAR: PRINT 
NAMES CI ti 

1970 FORIS=I 70 CASE: FOR = i 
TOO NVAR: PRINT ACID): NET): 


NEG I 
1980 PRINT d3:*CLISE* ;F3 
1990 HOME : NO 
2000 REM +844848344% 484444443 
2010 REM + CORR/REVIS. DATI 
2020 REY SARFRRTTARE RAFA: 
2030 TAB I4: HTAB d: CALL 


958: INVE Ì 

LUNI A ; SET 
28: PRI MT 23: IF_I$ 4) 
AND 23 ( Pa THEN 2030 


2040 IF n = 34" THEN 2279 
2050 QBI Iasastansi dante 


2050 1 CASI « 

2970 1944333434441 

2080 ASE: ACME 

2099 2 5 2RINT * CASO 
Ni ifet 4 MORAL 3 PRINT: 
PRINT 

2100 311 UAAR 


Te: 


958: INVERSE : PRINT *CAMBIAM, 
DATI VARIABILE N. (1-";NVAR;*)? 
*;: NORMAL : INPUT "uy 

mi: # VCL ORV) NVAR THEN 


2210 VTAB 23: HTAB 1: CALL - 
958: INVERSE : PRINT "VALORE 
ATTUALE CASO N*;l;' 

"INAME$S(V) ;* = "AG, V): PRINT 


"CAMBIARE IN? "3: NORMAL» 
INPUT "aly 
2220 I=3 1-1: NOTI 
2230. RETURN 


2240 REM #HHHHEEEARE 

2250 REM + ALCUNI CASI # 

2260 REM #XEXKX44EX444%% 

2270 HOME : INVERSE : PRINT 
"N.CASO DA CORREGG. (0 0 PER 
do agi : NORMAL : INPUT * 

2280 IF Ci = 0 THEN RETURN 

2290 IF CI <10RC1 ) CASE THEN 
PRINT : PRINT CHR$ (7); CHR$ 
(7);"##* IL CASO DEVE ESSERE 
FRA 1 E ";CASE;"###": FOR 1 = 
TO 1500: NEXT I: GOTO 2270 

2300 HOME : INVERSE : PRINT" 
CASE N.*;Ci: NORMAL : PRINT: 
PRINT 


2310 FORJ= | TO NVAR 

2320 PRINT NAMES(J); TAB( 8)"= 
*;A(C1,4); 

2330 IF NVAR >) =J+ 10 THEN 
PRINT TABC 21)NAMESCI + 10); 
TABC 28)"= *;A(C1,J + 10): GOTO 
2350 

2340 PRINT 

2350 IF J< 10 THEN NOT J 

2360 J = NVAR 

2370 VTAB 24: HTAB 1: CALL - 
958: INVERSE : PRINT * <ESC) 
PER CORR.; CRETURN) PER CONTIN, 
"3: GET 2$: NORMAL : IF 2$ { ) 
CHR$ (13) AND 23 < > CHR3 
(27) THEN 2370 

2380 IF 2$ = CHR$ (13) THEN 2270 

2390 VTAB 23: HTAB 1: CALL - 
958: INVERSE : PRINT "CAMBIAN, 
DATI VARIABILE N, (1-";NVAR;*)? 
"ji NORMAL : INPUT *";V 

2400 IFV 1 ORV > NVAR THEN 
2390 


2410 VTAB 23: HTAB 1: CALL - 
958: INVERSE : PRINT "VALORE 
ATTUALE CASO N,";1;" 

"SNAMESCV) ;* = "sACCI,V): PRINT 
"CAMBIARE ÎN? ";: NORMAL è 
INPUT "*;A(C1,V) 

2420 GOTO 2300 

2430 REM #6RKKAAARARHKEAEELAAAAE 

2440 REM * (1) DISK READ ERROR + 

2450 REM 2000060008 

2460 ERR = PEEK (222) 

2470 IF ERR= 5 OR ERR = 6 OR ERR 
= {i THEN PRINT 


D$;"DELETE*;F$: HOME : FLASH : 
PRINT "IL FILE NON ESISTE. 
SCEGLI DI NUOVO....": NORMAL : 
PRINT D$;"CATALOG": FOR 29 = { 
TO 10000: NEXT 29: GOTO 1660 

2480 IF ERR = 13 THEN HOME: 
FLASH : PRINT "ERRORE NEL TIPO 
DI FILE. SCEGLI DI 
NUOVO. .....*: NORMAL : PRINT 
DI ;"CATALOG': FOR 29= 1 TO 
10000: NEXT 29: GOTO 1660 

2490 GOTO 2660 

2500 REN 2008000000000 

2510 REM # (2) DISK WRITE ERROR * 

2520 REN #448888900000009 A 

2530 ERR = PEEK (222): HOME 

2540 IF ERR = 4 THEN FLASH: 
PRINT "IL DISCO E” PROTETTO. 
METTINE UN ALTRO,": NORMAL : 
GOTO 1890 

2550 IF ERR= 9 THEN PRINT 

D$s*DELETE";F$: FLASH : PRINT 

"IL DISCO E° PIENO. CAMBIA E 
ing ANCORA": NORMAL : GOTO 

2560 IF ERR= 10 THEN FLASH: 
PRINT "IL FILE ESISTE GIA’ ED 
E” PROTETTO......°: INPUT "VUOI 
SCRIVERCI SOPRA (S/N)? *;A$: IF 
A$ <>) "5" ANDA$C ) "N° 
THEN 2560 

2520 IF ERR = 10 THEN 2600 

2580 IF ERR = {ii THEN FLASH: 
PRINT "NOME DI FILE ILLEGALE, 
SELECT AGAIN.....": NORMAL : 
PRINT D$; "CATALOG": INPUT 
"NUOVO FILE : ";F$: HOME : GOTO 
1900 

2590 GOTO 2660 

2600 IF A$ = "S" THEN PRINT 
D$:"UNLOCK";F$: GOTO 1900 

2610 IF A$ = "N" THEN INPUT 
"NUOVO FILE CRETURN PER 
INTERR.): ";F$: IF F$= CHR$ 
(13) THEN HOME : END 

2620 HOME : GOTO 1900 

2630 REM 2408008809900 

2640 REN * (3) ALTRI ERRORI * 

2650 REM ##XX44##44444#R ARA 

2660 PREZO:ERR = PEEK (222) 

2670. IF ERR = 254 THEN PRINT: 
FLASH : PRINT "INPUT ILLEGALE. 
PROVA DI NUOVO.....": NORMAL : 
RESUME 

2680 HOME : PRINT "ERRORE 
N.*;ERR;" ALLA LINEA *; PEEK | 
di 4 PEEK (219) * 256;* i 


quattro tipi principali di errori concer- 
nenti la lettura: (1) END OF DATA, 
spesso conseguenza di un'apertura e 
un tentativo di leggere un file non esi- 
stente; (2) FILE NOT FOUND; (3) SYN- 
TAX ERROR, nome di file illegale; e (4) 
FILE TYPE MISMATCH, tentativo di 
leggere dati da un file non di testo. 

Dato che la maggior parte degli errori 
si verifica dopo che l'Apple ha aperto il 
file (spesso un file che in origine non 
esisteva) il file erroneo viene cancellato 
dalla memoria (non dal dischetto) e vie- 
ne visualizzato il catalogo, per scegliere 
il nome di file giusto. Poi il programma 
continua normalmente. Se la lettura del 
disco è stata completata con successo, 
l'Onerr Goto è ripristinato nella linea 
1780 alla routine principale di cattura 
degli errori a linea 2660, che rimane in 
effetto fino a quando tutti i calcoli e la 
stampa sono stati completati. 

Se si desidera salvare i dati su disco, 
l'Onerr è messo a linea 2530. Vengono 
vagliati quattro tipi di errori concernenti 
la scrittura: (1) WRITE PROTECTED: 
sul dischetto la tacca di protezione in 
scrittura è coperta; (2) DISK FULL; (3) 
FILE LOCKED; e (4) SYNTAX ERROR: 
nome di file illegale. Come avviene per 
gli errori di lettura dal dischetto il display 
dice come correggere l'errore. 


Modifiche per la stampante 


In generale è necessario cambiare 
solo qualche linea perché il programma 
possa essere eseguito con una stam- 
pante a 80 colonne: qualche poke, la 
lunghezza delle stringhe dell'istogram- 
ma e il comando Printer On, come indi- 
cato in Fig. 2. Per creare una versione 
del programma destinato solo allo 
schermo si hanno due scelte: eliminare 
le routine dell'istogramma o modificare 
il programma in modo che l'istogramma 
venga stampato sullo schermo come 
seconda pagina per ogni variabile. 

Steven A. Schwartz 


il 120 IF LENCTITLES) ) 65 THEN 110 


| 1160 PRA! : PRINT CHRSC9) + "80N* 

Il 1330 DOT = CTCI) : IF CTC) ) 33 

il = THEN DOT = 33 

1| 1490 PRINT : FORI=1T0 90: 

{TO PRINT *-*; NEXT I: PRINT: 

ll PRINT 

|| 1590... PORE 36,79... 
1590... POKE 36,74... 
1600... POKE 24,71 : PRINT DT$ 


Fig. 2. Le linee da modificare per la 
stampa su 80 colonne. 
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LISA LA NUOVA WORKSTATION 
APPLE CHE SI PROIETTA 
NELL'OFFICE AUTOMATION FUTURE 


FINOLTRE NEI NOSTRI COMPUTER SHOP 


Apple Ill potenziato 
cen nuove penfericne 


Apple Il e il nuovo 
sersonci inimitccile 


Drive 3" a 3" floppy 
3 Ninchester fino a 20MB 


Monitor moncecrematici 
a cclcere cd clita risoluzione 


stampanti a mergnentic 
a cghi veloci a silenziose 


?lciter professionali 
2 Diù celeri = formeti 


Supporti magnetici 3 
accessori di quelite 


Modulistica, sicmocti 
libri e letteroture 


IRET 
intormatica| cistasuzione 
> | PER L'ITALIA 
computer 

center 


Corso Gastaldi 77R 
Tel. 300797 

Via San Vincenzo 1298 
Tal. 531315 


sE 


(d 
È smi 


Menti Quanti dati riuscite a stipare nei 
SIR vostri minidisk? Grazie a questo programma 
potrete aumentarne la capacità del 10%, 
utilizzando anziché 496 settori 
ben 544, Non è proprio come possedere 
un ProFile da 5 Mega byte, però... 


1 DOS 3.3 consente di sfruttare meglio 

dei DOS 3.2 la capacità dei dischetti. 
Ma sui dischi a 16 settori si può memo- 
rizzare una quantità ancor maggiore di 
dati? Sì. si può: è arrivato l'Eliminatore 
di DOS. Il programma qui listato modifi- 
ca la tavola di contenuti del volume 
(VTCC) in modo che mostri le piste 0-2 
come cisponibili per la memorizzazione 
di dati. Questo metodo ha però uno 
svantaggio: non è più possibile fare il 
Booting deli dischetto. Questo significa 
che io si deve fare con un disco norma- 
le, a doi sostituire questo con il disco 
modificato. Tutto il resto è identico a un 
disco ordinario. salvo che in !uogo dei 
normali 496 settori ne diventano dispo- 
Nibili ver \a memorizzazione 344 


Il programma 


Il eregramma è scritto in Appiesott. = 
scrive in memoria una tabella ICB nelle 


REM 
DELCELCECCRCCECI COTE CERE CETO CECI 


ELIMINATORE DI DOS 


BY TONY S. DAHBURA 


BY APPLICANDO AND 
Si MICRO-SPARC INC 


01773 


LINCOLN, MA 


FELT444KLAL4I LK4444443 43444 


HOME : CLEAR :98 = 


fi 4) 

20 REM POKE LA TABELLA [08 

30 RE E: FORJS= 766 TO 500: 
READ I: POKE J,I: NEXT 4 

40 DATA 


su 


locazioni 768 ($300)-800 ($320). = ne- 
cessaria una tabella IOB per leggere e 
scrivere i settori. Poi il programma chie- 
de in quale slot e quale drive leggere e 
scrivere. Quindi fissa il numero del volu- 
me a 0. inmodoche ci sia corrisponden- 
za con cualsiasi disco. Viene cancellato 
il flag ci errore, alla linea 210, ad è inse- 
rito in memoria il comando di lettura, 
alla iinea 230. 

Poi il oregramma !egge !a pista 17, 
settore Ù a scrive in memoria 255 (SFF) 
nella ‘ocazione cella piste 0-2 nella îa- 
vola. Cgni pista na nei VTOC un codice 
che incica se è piena o vuota. Segnan- 
do carte iccazioni e riscrivendo ii VTCC 
si fa in moco cne il disco pensi che !e 
piste 0-2 siano vuote. 


Scrittura sopra il DOS 


il passo successivo consiste nello 
scrivere zeri sopra ie ciste 0-2 in meco 


TTORI*: PRINT 
+ DAHBURA" 


PRUGRAMMA 
VE IL DOS DALLE”: PRINT 
30-32, CHE RENDE 


Più spazio 
nel dischetto 


che siano sgombre per i dati. La linea 
380 inserisce in memoria gli zeri e le 
linee 400-470 li scrivono sul dischetto. 
Dopo ogni lettura o scrittura c'è un salto 
a una subroutine nelle linee 520-590. 
Questa subroutine controlla se si siano 
verificati errori. Si verifica un errore se la 
locazione 791 ($317) non ha uno zero. 
Per esempio se questa locazione con- 
tenesse un 16 ($10) il dischetto sarebbe 
protetto in scrittura. Se il programma fa 
scendere in Basic e visualizza un mes- 
saggio di errore si corregga l'errore e si 
giri nuovamente la routine. 

Quando il programma è finito chiede- 
rà se si vuol rimuovere il DOS da un 
altro dischetto; se si batte “N" esce. 

Si rammenti che con i dischetti così 
trattati non si può fare il bootstrap, dato 
che non c'è più il DOS, e dunque lo si 
deve fare prima con un disco normale. 
Tutte le altre funzioni sono identiche. 
Buona memorizzazione! 


180 REM VOLUME DI d 

190 POKE 761,0: POKE 792,0 

200 REM CANCELLA ERRORE 

210 POKE 791,0 

220 REM IMPOSTA PER LEGGERE, 
CODICE=! 

230 POKE 799,1 

240 PRINT : PRINT "INSERIRE IL 
DISCO NEL DRIVE INDICATO*: 
PRINT *E BATTERE <SPaz10> PER 
MODIFICARE, 9%: PRINT "<RETURN 
PER USCIRE": HTAB 20 

250 GET AS: IF AS > CHRI 


AND AS { > CHR$ ‘13) THEN 
260 IF AS = CHR$ (13) THEN TEXT 
: END 


270 PRINT 

280 HOME : PRINT "STO 
VTOC, 17,0" 

290 POKE 792,17: POKE 783,0: POKE 
796,0: POKE 787,32 

300 CALL ?6E 


319 GOSUB 520: REM CONTROLLI 
ERRORI 
320 REM SEGNA LE LOCAZIONI UTOC 


330-343 


«255: POKE 9193 + 

255: NEXT X 

350 HOME » PRINT *STO SCRIVENDO 
IL vTOc" 

350 POKE 290,2: CALL 768: GOSUE 


1 PRINT "ORA CANCELLO LE 
TRACCE $1-$2" 

380 FOR x = 8192 TO Qdd&; PORE 
MD: NEXT Xi REM FA UNA PAGINA 
DI 0 PER MEMORIZZARE DATI DOVE 
ERÀ IL DOS 

Q9I POKE 786,8: POKE 797,32: REM 
BIFFER 

400 POKE 790,2: REM 
SCRIVERE, CODICE=Z 

410 FORX= (702 

428 FORY=GT0 15 

430 POKE 782,%: REM TRACCIA 

dal POKE ?83,Y: REM SETTORE 

450 CALL 768: REM ESEGUE WRITE 

deb SOSUE 520: REM CONTROLLO 
ERRORI 

476 NEXT Y: NEXT x 


IMPOSTA SER 


480 HOME : PRINT : PRINT "UN 
ALTRO DISCHETTO (S/N)?*; 

490 GET AS: IF R$ { ) "5" AND A$ 
{> "N" THEN 490 

500 PRINT A3: IF A$ = "5" THEN 
HOME : GOTO 160 

950 TEXT : END 

520 IF PEEK (791) = 0 THEN 
RETUR 

530 E = PEEK (291) 

540 IF E = 16 THEN PRINT 
*IL DISCO E PROTETTO" 

550 iF E = 32 THEN PRINT : PRINT 
MIL VOLUME NON CORRISFONDE” 

560 IF E = 64 THEN PRINT » PRINT 
HAI SBAGLIATO DRIVE" 

520 IF E = 128 THEN PRINT: 
PRINT “ERRORE DI LETTURA" 

580 IFEC )ISGANDE< ) 37 
AND E {> 64ANDE < > 128 
THEN POKE 791,0: RETURN 

596 PRINT CHR$ (70; CHR$ (77: 
TEXT: END 


: PRINT 


Disponibile su dischetto. 
Vedere a pag. 80. 
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pPLICHIAMO: Prendete: ur ex astrofisica; ure cinhemetica 
da NOLABE=T um espertaî di: Pascali. um giavanissima;: 


piena di entusiasmo e una ragazza bruna Aggiungete: 
um Apple I Mescolate bene: E dope qualche mese: 


Dasinistra: Piero: 
Schiavo Campo;,.. 
luisa Reina;. 
Afccarda Paulin, 
Alessandro 
Mezzettt;.. 
Roberta Polilla: 


stata presentato at pubblica sola 
pochi giormi ma; negli uffici 
tecnologicamente piix evalutt;. i diri- 
genti se ne contendono; le prenota- 
zioni giada alcuni mesi. it suenome 
@Dossier,ed'è umprogramma di ge- 
stiane aziendale im Pascali La ha 
creato per Apple IE la Etnateam: di 
Milano; una sacietà specializzata: 
nell’ingegneria del software che; im 
sali cinque anni: dî attività e com 40 
dipendenti, ha raggiunta nel 198Z um 
fatturata di 2,3 miliardi di liree preve- 
de dî superare la quata dei tremiliar- 
di nell'arco di quest'anno. 
Semplice da usare; agile ed' eco- 
nomica Dassier offre a imprenditori, 


professionisti e manager uno strumento 
nsostituibile per tenere sempre sotto 
controilo tt le voci dei bilanci oreven- 
tivi. gli indicatori fondamentaii dei pro- 
getti. le previsioni dei costi del persona- 
e. i piani di fatturato. la finanza a nume- 
Itri dati di sintesi. E. non scio: Dos- 
consente di aggiornare in meco ra- 
tali iniormazioni 3 ricaicoia auto- 


* NEWS 
FROM FAR EAST 


ready from stock 


icamente tutti | dati corr i ai nuovi 
2 ale neir t. Fornisce la visualizzazione grafi- 
Soecial selection for factor, ; Geollahdamenti nil ileva 
manufactory, werkshco togrammi. Stampa un “ 
E - ta già 0 o per ‘a fascicciatu- 
computer sheo. districuicrs È noleto di copertina a indice 
DEM. customs. ‘‘nizialrmente Dossier è stato iceato 
cer risolvera i problemi ope - 
ministrazione, di organiz 


1 COMPUSAVE 
À one ceila nost 
— Roverto Poliilo 


3 titolare celle 


“BE nertronica 


Niaucio Tallone 


IN COLLABORAZIONE 
CON MIXER VIAGGI: 


Programma 
SAN FRANCISCO 


27 ottobre 

MILANO/SAN FRANCISCO 
Partenza con vola Alitalia: alle 
are 13.30. Arriva a SAN FRANCI- 
SCO alle ore 27.44, Trasferimen- 
tarim albergo. Pernottamento: 


Dal 27 ottobre al T novembre 
SAN FRANCISCO 

Prime colazioni e pernottamenti 
imalbergo. Una giornata sarà de- 
dicata all'escursione a Cupertino 
im autopullmar privato. 


T-3 novembre 

SAN: FRANCISCO/MILANO 
Prima colazione im albergo. Tra- 
sferimento* aeroporto. Partenza: 
alle ore 07.00. Cena: e pemotta- 
menta e bordo. Arriva alle ore: 
10.05 a MILANG MALPENSA. 


Quatadi partecipazione per per- 
sone Lire:T.770.000.. 


Peri oi piceno) (basta: 
abbonarsi ad 
te tac.o0® 


La: quota: comprende= « viaggia 
aerec:imclasse economica MILA— 
NO/SANFRANCISCO/MILANO® 
© sistemazione im albergo di Ta: 
cat: cor:trattamenta: dî pernatta-- 
menta eprimacalazione etrasfe- 
oa "ta pn © escursione: 

@& assicurazione In- 
teraszistancal” e bagaglia « la 
ia = letasse di 


iando per ricevere in- 
I viaggio a San Frun- 


subito questo tagli 
più dettagliate su 
cisco con Applicando. 


SPEDIRE A: EDITRONICA srt Csa: MONFORTE; 3720122 MILANG 


Apple 
parla la 


tua lingua 


® 
las] 


Indubbiamente con fa sua semplicità è versanintà 
universale. Non per mente, nel mondo sono su: 
di un personai computer Apple. 

I personal Apple fanno di tutto per venire :r 
Così il nuovo Apple e. che puoi trovare :n 
e vendita in Italia. non solo vifre più memoria 
ma anche una tastie 
I nuovi Apple pariano 
capisce meglio i tuoi problemi € 
In compagno socievole con una 
Vieni a scambiare quattro cinacchiere con ii n 
Appie . Scopriru che sono sorprendent 
\ppie e completo di video è 
3 miliom e m 


x) ADpie Dari 
U) intia  nossesse 


vaggiore 


eMOneti 7 


anità per dischetti + (n offerta speciate 1 soli 
è Apple ha un discorso 


| 4 
—. @gappic Il Personal Computer 


Distribuzione unica per l'Italia: IRET Informatica S.p.A - Via Bovio, 5 - 42100 Reggio Emilia - Tel, 0522/32643 - Tlx 530173 IRETRE | 


response 
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Applicando lo regala su dischetto a t 


CARE 
È A 
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U n computer può fare cose sorpren- 
denti, macinando i numeri, ragio- 
nando con le lettere, compiendo mira- 
coli di grafica. Ed è naturale che sia 
così. go si è comprato proprio per que- 
sto. Ma voi riuscite a fargli fare quelle 
cose? lo non l'ho mai spuntata. Non 
sono mai riuscito a inquadrare nel miri- 
no un bersaglio spaziale, e ancor oggi 
trovo difficile ricordare se nella formula 
dell'acqua venga prima la O o l’H. Ram- 
mentare qual è il debito e quale il credito 
mi è impossibile, e mi rifiuto sistemati- 
camente di discutere di logica boo- 
leana. 

Ma poi ho scoperto che se prendevo 
una semplice routine, prelevandola da 
una rivista, o esaminando le espressio- 
ni in Basic di un programma, potevo 
costruire un programma tutto mio intor- 
no a quella routine. E alla fine, dopo 
mille errori di sintassi, potevo far funzio- 
nare qualcosa, qualcosa che avevo fat- 
to io. Ne valeva la pena. 

Così, per anni e anni ho cercato di 
realizzare un programma che aiutasse 
il mio piccolo a imparare come si scrivo- 
no le parole. Era un progetto difficile: 
per quante ricerche facessi ai tavoli di 


mas 3: 
mu x = 
= = 
Ba; = 
ua 
EI (N08) 
(SFR 


lia 


Per i piccoli amici del computer, ecco un gioco divertente, 


ma soprattutto istruttivo: è un utile esercizio 
di ortografia e di... tastiera, adatto a tutti, dai sei anni in su. 


utti gli abbonati... 
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ca , 
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blackjack, di roulette e di dadi, non riu- 
scivo mai a mettere a punto l'algoritmo 
giusto. Quando poco tempo fa mio figlio 
si è sposato ho pensato che forse il suo 
interesse per l'apprendimento dell'orto- 
grafia con il computer stava diminuen- 
do. Il cuore del programma al quale mi 
ero dedicato si chiamava ABC Finder, 
lo scopritore dell'ABC, ma partendo dal 
presupposto che il livello di età del mio 
pubblico fosse salito, l'ho ribattezzato 
Scanner, analizzatore. Se avete dei fi- 
gli, anche non sposati, chissà che non si 
appassionino a questo gioco... 

Si constaterà che è facile copiare il 
programma sul computer, perché ho 
seguito certe regole cardinali: 

1. Tutti i caratteri del listato sono pre- 
senti sulla tastiera dell'Apple. 

2. Tutto è sistemato in buon ordine. 

3. La maggior parte delle linee consta 
di un'unica espressione. In questo mo- 
do il programma è più facile da seguire. 
Più tardi, se si vuole, si possono combi- 
nare le espressioni in una linea lunga. 
Allora il programma girerà più rapida- 
mente e sarà più efficiente in fatto di 
memoria. Un ottimo affare. 

4. Abbondanti osservazioni (REM, 


È. | LI 
È "2 DA 
peri = Dr” - Bi 
2331218 
»i 
a te è] = 
3. ga 73 - 


che viene da remark) descrivono che 
cosa sta accadendo. 

5. Non ci sono imprecazioni, gram- 
matica scadente, numeri esadecimali, 
linguaggio macchina, o altre simili 
eresie. 

Il gioco è divertente, sempreché si 
riesca a farlo girare. Sullo schermo si 
forma una riga di 40 lettere prese a ca- 
so. Si deve cercare di formare il mag- 
gior numero possibile di parole, usando 
solo quelle lettere. Tutto qui? Sì, ma 
provate a vedere come ogni lettera bal- 
la sullo schermo, prima di giudicare... 

Un consiglio: componete parole cor- 
te. Farete più punti, e probabilmente 
andrete più vicini alla grafia giusta. Per 
fare questo gioco non c'è bisogno co- 
munque di essere bravi in ortografia. A 
dire la verità oggigiorno non ce n'è più 
bisogno quasi per nessuna attività. 


Il programma 


Ecco il programma dello Scanner. 
Non è il caso di impressionarsi, non è 
lungo come sembra, e la maggior parte 
delle linee è corta e facile da battere. Un 
avvertimento: occhio alla linea 210. 
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La linea 100 pulisce lo schermo per- 
che sia pronto per l’azione. 

Le linee 120-180 danno il meritato 
credito all'autore di questo programma. 

La linea 190 fissa il valore di una va- 
riabile. Ho letto da qualche parte in un 
libro che se si usa ia variabile invece del 
valore effettivo il programma girerà più 
svelto. Qui l'ho usata perché si tratta del 
numero che fa funzionare il cicalino, ed 
è un numero così dannatamente lungo 
che di solito lo sbaglio. Con N ce l'ho 
giusto. 

La linea 200 è un eccellente sistema 
per fare una lunga riga tratteggiata. Si 
potrebbe dire solo LS = “= = = (per 40 
trattini)": ma in quest'altro modo è più 
facile e più limpido. Si può voler cambia- 
re ii valore, e con questa tecnica è pos- 
sibile. L'ho usata qui perché ogni tanto 
mi piace far sfoggio della gran quantita 
di queste mie nozioni. 

La linea 210 chiede se è la prima 
volta che si gioca. Rispondete N (per 
no) se non occorre leggere le istruzioni. 
Se occorre. si risponde S a il program- 
ma è lieto di spiegare per filo e per se- 
gno in cosa consiste il gioco. 

La linea 220 stampa il titolo. molto 
lentamente. L'idea l'ho presa da un pro- 
gramma che mi era capitato sottomano. 
Un consiglio: quando trovate una routi- 
ne che vi piace, impadronitevene! 

La linee 230-270 impostano la visua- 
lizzazione dell'alfabeto. La linea 220 or- 
cina al orogramma di creare 39 iettere. 
Poi la linea 240 crea un numero a caso. 
La linea 250 aggiunge 128 al numero in 
moco che 0ossa essere scritto in me- 
moria al costo giusto. La linea 260 oro- 
2uca il rumore {niente da stupirsi). La 
inea 270 orotrae l'eccitazione. Si provi 


100 TEXT : HOME : CLEAR 

110 INVERSE : PRINT * (C) 1983, 
APPLICANDO E INCIDER È 

115 FORK= | TO 800: NEXT K: 
HOME : NORMAL : CLEAR 

120 

130 

140 

150 

150 

170 


VINOVI/MCMLIGXI] 


180 

190 N= - 16336 

200 FORX = 1 T0 39:1$ = L3 + 
"3: NET X 

210. VTAB 5: PRINT “E” QUESTA LA 
PRIMA VOLTA CHE GIOCHI 
SCANNER"? (S/N) ";: GET A$: 
fe : IF A$ = "6" THEN GOSUB 
820 


ad aggiungere 128 sulla linea 250: il 
programma avrà un aspetto diverso 
Emozionante. E probabilmente non 
funzionerà. 

La linea 280 colloca il cursore alla 
dase dello schermo, in posizione sicu- 
ra, e chiede di scegliere una lettera. 
Quindi sgombra la linea con CALL - 
868. Assegna un valore di 1 a J, per una 
ragione che al momento mi sfugge. Può 
carsi che in seguito mi venga in mente. 

La linea 290 coglie gli sbagli. Se ii 
carattere scelto non è una lettera ma un 
punto ii suo numero di codice ASCII 
deve essere cambiato in uno più alto: si 
usi 110. Disponendo di una tabella si 
redrà che CHRS (110) è una n minu- 
scola. Non c'è da preoccuparsi, non l'u- 
serò mai in quel modo. 

La linea 300 cambia il valore delle 
ettere raccolte aggiungendo loro 64. 
To. questo trasforma nuovamente la n 
n un punto allorche diventa CHRS 
*74). Sono proprio contento che sia 
“imita. 

Adesso si fa la scansione della riga. 
La linee 320-340 passano in rassegna 
e ‘ettere della riga. Se viene trovata una 
ettera che corrisponde a quella scelta. 
si e fatto centro. In altri termini se S (che 
a i valore della lettera della fila) è ugua- 
e a 8 (il valore del numero scelto. ai 
cuale abbiamo aggiunto 64 per fargli 
sariare !o stesso linguaggio del voke: 
2eek) allora il programma andrà a linea 
La linea 350 interviene invece se non 
2 è stata alcuna corrispondenza. cosi il 
oregramma salta a piè pari a 750. dove 
na gualche mansione di routine da svol- 
ere. La linea 370 è nuovamente la riga 
ze ‘rattini. 


220 SPEED= 39: VTAB 2: HTAB 15: 
PRINT "* SCANNER #*: FOR 2=1 
TO 1000: NEXT 2: SPEED= 255 

220 FORX=1 7039 


240 R= INT (26% RNDCI)) #1 
250 POKE 1151 + X,R + 128 

260 P = PEEK (N) 

270 NEXT X 


280 VTAB 23: HTAB 2: CALL - 868: 
PRINT "CHE LETTERA? =) *;: GET 
A$: VTAB 23: HTAB 2: CALL - 
868:3 = 1 


290 IF A$ = CHR$ (46) THEN AS = 
CHR$ (110) 
200 B = ASC (AS) + 44 


310 REM SCANSIONE 

320 FORX=1 T0 40 

330 9 = PEEK (1151 + X): IFS=B 
THEN GOTO 360 

340 NET X 


ù 5 nm 
. nasci 211, 
- Za 1 2 
ai 
z ": LE | 
°-° 3» 21 = 
i dg ae 
im 3a; 
I 
3 
à 


» 


e] 

La line&f380 colloca uno spazio vuota 
nel punto) cui si trovava la lettera scel- 
ta. E trové.quel punto esatto perche la 
linea 330 Gg@n sa mantenere un segreto. 
e così sap he la lettera scelta era 
in X. Adessd'è uno spazio vuoto lin 
lingua peek/poke ASCII 160 e uno spa- 
zio vuoto). 

La linee 390-450 faranno scendere ia 
lettera. Di fatto non scende nulla. InY -1 
viene stampato uno spazio vuoto. Poiin 
Y viene stampata la lettera. Questo suc- 
cede da 3 a 15, e il rumore (iinea 440) 
ne fa una avventura densa di emozione 
nel mondo dei computer. 

Dopo tutta questa agitazione puo 
darsi che si voglia sostare un momento 
a osservare come ora ci sia una riga di 
lettere che appare alla sommità dello 
scnermo, e una lettera che è appena 
caduta nei pressi del fondo. Adesso che 
cosa accadrà? 

Ls linee 460-500 guardano iungo ia 
riga suila quale è previsto che cadano le 
lettere. e se ce n'è una (in realtà se una 
locazione non è uno spazio) la linea 490 
ricorda quel ounto esatto dando a | ii 
suo valore. Al riguardo si dira altro più 
avanti. 

La linee 510-600 mettono in ordine le 


350 GOTO 750 

360 REM CADUTA 

370. VTAB 16: HTAB 1: PRINT L$ 

380 POKE 1151 + X,160 

390 FORY= 37015 

400 VTAB Y - 1: HTAB X: PRINT 
CHR$ (32) 

410 IF S= 174 THEN S = 110 

420 VTAB Y: HTAB X: PRINT CHR$ 


($ - 64) 
430. FOR 2/= 1 7020: NEXT 2. 
440 P = PEEK (N) 
450 NEXT Y 
460. REM ACCHIAPPALETTERE 
470 FORX=1 7040 
480 F = PEEK (1831 + X) 
490 IFFC ) 60 THNI=F 
500 NEXT X 
510 REN PULIZIA 


520 FORX=40 TO 1 STEP -1 


nai = 
va su x + =» 
35% na! di” 
» 
si 
LI u " a 
Le dx = 
Cai Za a . = 
» 
n 


» 
cose. Cominciando a HTA ci si spo- 
sta da destra a sinistra.g | 1 (linea 
520) e così facendo si sposta? una spe- 
cie di topolino: che poi è solo $ curso- 
re, attraverso la base dello schermo 
stampando un CHRS (93) — che sarà 
mai? — seguito da uno spazio. in modo 
che sembri in movimento. Ogni volta 
che lo si fa si produce un rumore (linea 
550). C'è poco da stupirsi! 
La linea 570 dà gli ultimi tocchi al 
guazzabuglio incominciato sulla linea 
530. 


La linea 580 fa più o meno la stessa 
cosa, in senso verticale, e adesso lo 
pseudo-cursore si sposta in giù da 
VTAB 16 a 19. Si sente l'emozione che 
cresce? 

Si usi la stessa tecnica (stampando 
un carattere seguito da uno spazio nel 
posto appena abbandonato) ma questa 
volta si vedono i caratteri anziche usare 
i numeri ASCII. Questo per nessuna ra- 
gione specifica, soltanto per cambiare 
ritmo. 

La 590 è una linea di ripulitura, di 
scopo simile a quello della linea 570. Ci 
dev'essere un modo migliore di fare le 
cose, 0 no? 

La linea 600 colloca con molta gran- 


530 POKE 1831 + X,93: POKE 1831 + 
X + 1,160 

540 FOR 2=1 T0 30: NOT 2 

550 P= PEEK (N) 

560 NEXT X 

570 POKE 1832,160 

580 FOR X = 16 TO 19: VTABX: 
HTAB 1: PRINT *]": VTAB X - 1: 
HTAB 1: PRINT * *: FOR2=1T0 
20: NEXT 2: NEXT X 

590. POKE 1360,160 

600° POKE 1488 + T,I:T=T +1: IF 
T) 39 THEN GOTO 760 

610 REM CHIUSURA 

620 FORE=J TO 39 

630 C = PEEK (1151 + E) 

640 IF C-= 160 THEN 670 

650 NEXT E 

660 GOTO 280 

670 H= PEEK (f152 + E) 


diosità nel posto giusto dello schermo le 
lettere originariamente scelte. | T + T + 
1 incrementa (parola d'alta classe usata 
nel Nevada per dire aumenta) di un po- 
sto in modo che la lettera successiva 
venga stampata al posto esatto e non 
faccia pasticci con quella che la prece- 
de. Le linee 610-650 chiudono la sfilata 
di lettere della riga in alto. Senza questa 
piccola e utile subroutine in questo pun- 
to le lettere alla sommità avrebbero l'a- 
spetto d'una bocca sdentata aperta in 
un gran sorriso. 

Quanto questo paio di linee cerca di- 
speratamente di fare è scrutare lungo la 
fila di ABC per vedere se manca una 
delle lettere. Se manca (linea 640) il 
lavoro lo fa un altro gruppetto di linee. 
Se non trova posti dove ci siano buchi, 
ossia ASCII 160, torna semplicemente 
alla linea 280, e ricomincia la sua picco- 
la danza un'altra volta. Se invece ne 
trova, si mettono al lavoro in modo 
quanto mai industrioso le linee 670- 
730. A guardarlo sembra tutto un po 
indistinto, ma in qualche modo tutte le 
locazioni delle lettere vengono esami- 
nate e spostate di uno spazio verso sini- 
stra. Ciò scala l'intera riga di uno spa- 
zio, il che è in sostanza tutto quello che 
ci si può attendere. dato che finora e 
stata tolta dalla riga solo una lettera. E 
mette un punto fermo alla fine della riga. 

Si rifaccia più e più volte la routine, 
per spostare l'intera riga. Non è neces- 
sario partire ogni volta da 1 (ecco a cosa 
è servita la J nella linea 280!), e si può 
invece incominciare (molto ingegnosa- 
mente) dove si era smesso. Così la 
mossa è molto più rapida. per il caso 
che si sia impazienti di tornare al pro- 
gramma di conto corrente o al comples- 


680 POKE 1151 + E,k 

690 POKE 1152 + E,160 

200 POKE 1191,174 

20J=E 

220 P= PEEK (N) 

730 GOTO 620 

740 END 

7250. REM CONTATORE 

260 FORX=1 T0 40 

270 U= PEEK (1487 + X) 

280 IF U= 174 THN0=041 

290 NEXT X 

800 VTAB 23: HTAB 1: CALL - 868: 
PRINT "TOTALE PAROLE = *;0; 

810 END 


820 REM ISTRUZIONI 

830 SPEED= 100: VTAB 5: PRINT 
*COMPONI IL MAGGIOR NUMERO 
POSSIBILE DI = PAROLE CON LE 
LETTERE INDICATE...UNA 


so manuale del “Meccanico dell'Ap- 
ple”". Si fa questa mossa fino a quando 
la riga è di nuovo completamente piena 
e poi si continua a linea 280, per la via 
della linea 620. Che datfare! 

Fortunatamente la fine del program- 
ma è vicina, e le linee 760-810 si limita- 
no a contare il numero delle parole 
create. A dir vero il programma non è 
abbastanza in gamba per contare le pa- 
role, enon sa nemmeno come si scriva- 
no giuste, ma sa contare i punti fermi. 
Così se quando si gioca non si bara 
adoperando tutti punti e niente lettere, il 
programma sa quante parole sono sta- 
te completate. Probabilmente. 

Il gioco termina, misericordiosamen- 
te, alla linea 740. Le linee 820-910 sono 
infatti le istruzioni per il gioco, che devo- 
no essere battute nel programma solo 
se si intende veramente giocare a 
Scanner. 

Lo Scanner dovrebbe dimostrarsi la 
base di un buon gioco interessante ed 
educativo, che può essere molto diver- 
tente. lo consiglio di tenere le parole 
corte e semplici, come ho già detto, se 
si vuoi ottenere il punteggio più alto. 
Non si dovrebbero mai usare invece no- 
mi propri, nomi di medicinali non in libe- 
ra vendita, di divi della TV e di animali di 
specie in via di estinzione. 

Se avete idee interessanti per l’adat- 
tamento di questo programma a scopi 
d'affari, commerciali, militari 0 di gioco 
fissate la vostra idea con un fermaglio e 
una banconota da un dollaro nuova 
fiammante e speditela all'autore, pres- 
so una qualsiasi della maggior parte 
delle case da gioco di Las Vegas. E fate 
presto. per favore. 

Paul Raymer 


LETTERA PER VOLTA -- QUANDO UNA 
PAROLA E’ FINITA, BATTI UN 
PUNTO...": PRINT : PRINT "PER 
SMETTERE DI GIOCARE BATTI 
SPAZIO)" 

840 PRINT : PRINT "SE SCEGLI UNA 
LETTERA CHE NON HAI, IL 
GIOCO FINISCE AUTOMATICAMENTE,* 

850 SPEED= 255 

860 VTAB 19: HTAB 1: PRINT 
*SCHIACCIA QUALUNQUE TASTO PER- 
COMINCIARE" 

870 VTAB 22: HTAB 1: PRINT “PER 
GIOCARE SENZA RUMORI PREMI 
<SPAZIO)" 

880 VTAB 19: HTAB 32: GET A$ 

890 IF A$ = CHR$ (32) THENN=0 

900 HOME 

910 RETURN 


37 


| gusiNES® Troppe piccole 
I imprese vivona ancora alla 
giornata, senza una 
‘chiara idea di come andrà a finire. 
Ecca un programma che 
aiuta a calcalare il punto 
oltre il quale si comincia 
a guadagnare... 


228 ho o i ona lied 


Profitti, per favore! 


[ paterleupirena piccola impresa 
stabilire se &im guadagno a sta 
perdenda: danaro‘? Quanta. tempa ac-- 
correrà perchéleentratecompensinati 
costi? Quantiprodottiaservizi devona: 
essere venduti per pareggiare if bilan= 
cia? A queste domande sè può: dare 
risposta com l’analisi del! break-evere 
point.a def punta di pareggio; ur pro- 
cedimentasemplicemache perta pia— 
nificaziane della piccola azienda può 
rivelarsi essenziale. 
Latecnica in questione studia irap— 
porti fra vendite. costi fissi e costi va 
riabili. Im affari il punto: dé pareggio si 


cavaur profittané subisce una perdi 
ta: L'analisidel break-even pointè par 
ticolarmenteutilequandaèapplicataa 
periodi futuri, come quidadi pianifica— 
zione. imspeciafmadaseè prevista un 
cambiamento nei mada di gestione» 
dell’azienda. Per esempia può fornire: 
proiezioniffessibilidegii introitfedelle: 
spese im candizianii presunte e core 
programmi manageriali atterrrativià. 


Qualche applicazione: 
Decisioni su: muovi pradatti Cigni 

muova prodotto ma implicazioni dî ca 

sto. che naturalmente inffuiscara suli 


10 REI CC) 1983 - COPYRIGHT 3Y 
APPLICANDO AND INCIDE 

20 REMO #+44% MAPPA DELLE 
VARIABILI 44444 

30. REMO AS=INPUT GENERICO DI 
STRINGA 

40° REA B$ CONTIENE IL ‘PUNTO DI 
PAREGGIO” (BREAK EVEN POINT) 

50 REMO CO$ CONTIENE IL ‘MARGINE 
DI CONTRIBUZIONE” 

60 REMO C3 E” LA MATR 


DEFINIZIONI PER LA SE 


ISTRUZIONI 

70 REM FS CONTIDNE I 
FISSI 

80 REM V$ CONTIENE I 
VARIABILI 

900 REM DB=PLNTO DI PAREGGIO 
GIORNALIERO 

100 REM BE=PUNTO DI PARESGIO 
(ANNO) 

110 REM 


COSTI 
COSTI 


FC=COSTI FISSI AL 


suc prezzo e sulla sua commerciabili- 
tà. Inmolte piccole impreseum prodot 
tanuovaconvolumedivenditeincerta: 
aumenta; altreai rischi;.ilpatenziale dî 
profitto della ditta: L'analisi dé pareg- 
gia consente di fare ill confrante fra: 
possibilistrutturedî costacamemezzi: 
alternativi. 

Decisioni sull’espansione. Si può: 
usarel’analisi perstudiarel’effettagio- 
bale dî un'espansione generale degli 
affari. Peresempiavengoncesaminatii 
irapportifravendite totali imlinreecostii 
totali imlite allascope di individuare i 
potenziali mutamentii in questi rap 


porti 

Decisioni sul margine di profitto: SÉ 
put usare l’arralisi per determinare le: 
vendite im lite accorrentii per attenere» 
uredato: livella: dî profitto. 


Decisioni sulla pubblicità. L'analisé. 


puùessereusata per prevederei risul 
tati di vendita necessari unar 


perché 
campagna pubblicitaria copra i costi. 


Decisioni di pianificazione Itricarso»: © 


140 REY 
VARIABILI 4 
150 REA QUESTO PROGRAMMA 
I L'ANALISI DEL 3RESK 
EUEN POINT (PUNTO DI PARESGI9) 


TV=TOTALE 


PRINT “ANALISI DEL 


RINT "DI" 
PRINT *COREY SC40U, 


PRINT "RONALD QUBIN, 


25 PRINT "QUESTO 
— PROGRAMMA ESAMINA LN METODO" 
PRINT "SEMPLIFICATO DI 
CALCOLO DEL PUNTO DI" 
230 PRINT *PAREGGIO PER LA 
SESTICNE DI UN PICCOLO" 


naur prontariferimento;. che la picco— 
laazienda puù usare per una maggiore 
riflessione sul' piana totale..: 

Supponiamo,. per esempio; che: il 
puntadî pareggia quotidiana di unne— 
gozia sia calcolata ir 400 mila lire per 
ciascun giorna dî gestione: Diventa al- 
lorafacilissimo; quandasifalasomma: 
degliincassi dellagiormata; stabilirese: 
ladittatasubita una perdita, hachiusor 
ire pareggia @ ha: ricavato: ure profitto: 
Normalmente un giore è um periodo: 
troppabreveperfare cambiamenti im 
mediati im une piano aziendale. ma sa 
rebbe semplice estendere i calcoli a 
una settimana. due settimane: o: un 
meser: 

Questo strumento analitica parte da: 
duepresupposté IFprima;,che sembra: 


fisseevariabili. Per definizione i costi 
fissisamaquellichermamcambianacani 


ilvolumedelle vendite, peresempia fer;î; 


imposteimmobiliari; i premi di assicu=- 


razione e così viar: 


Lespesevariabilisana quelle chest: 


cambianacorifvalumedivendite de 


. impresa Almenauntipa divariabile* 
‘ cambiadirettamente e proporzianat-- 


UTAB 24: ATAB 


mente cen ie vencite: le scesa ci orovvi- 
gione. Tuttavia la maggior sare celle 
spese variabili nen campia in meco ci- 
retto e oroporzionalmente con ie vernci- 
te. Ci sono anzi graci ci variacilità. Co- 
me conseguenza la maggior carte celle 
spese variabili 3 ci fatto semi-variacite. 
In aitri termini alcuni costi restano ‘issi 
fino a un certo volume di vencite. 3 sc: 
fanno un salto cuando cuel vciume vie- 
ne superato. Per; pr cesti d'uifi- 
cio 3 'e spese ci consegna cesscro 
reds ‘ceners, è 
chiave sia nel giucicare cene cuanco si 
assegnano ‘e varie voci ci cosio alle 
categorie cel cesti issi = di cuaili varia- 
alli. 
il seconce srasuccesio 3 cme iunti 


Segue ca sac 32 
*--SATTI SOLO i 9 2--'; 

350 GET AS: IF R$ =!" 7 

360 IF A$ = *2" THEN ?30 

370 GOTO 39 

380 REMO FINE INDICE 

390 HOME : REMO COMINCIA La 
PARTE ISTRUZIONI 

400 LET F$ = "COSTI FISS]":08 = 
"COSTI VARIABILI*:8$ = "SRESK 
EVEN POINT" :C08 = "NARGINE DI 
CONTR.* 


HEN 390 


410 DIM C$c10,2,2) 

120 FORZ= 1702: FORXK=!T 
2: FORY= 1702 

4350 READ C36X,Y,2) 

440 NEXT Y,X,2 

450 INVERSÉ ! PRINT "VENDITE 
PREVISTE = 31000" 

460. PRINT 


470 FOR2=! 702 
480 INVERSE 


rapporti costo-volume-protitto siano li- 
neari. Ma se il raddoppio dei volume di 
vendite può raddoppiare l'introito. può 
anche darsi che non lo faccia. in quanto 
per ottenere l'aumento di volume può 
assere stata necessaria una riduzione 
del prezzo unitario. Tuttavia der il ri- 
stretto campo che circonda :l punto di 
oareggio il presupposto è abbastanza 
preciso per essere utile. Ad esempio 
per esaminare l'effetto di raddoppia- 
mento del livello delle operazioni si do- 
vrebbero definire nuovi rapconti (lineari 
a non lineari). 


La tecnica di pareggio 


La formula base 3 

antrate = costi fissi — costi variabili 

La differenza fra antrata = costo va- 
rracile è chiamata margine di contribu- 
zione (MCì. Ssso rappresenta ii contri- 
Suto ci ciascuna unità alla copertura cel 
costi fissi » verciò all'ottenimento si un 
orotitto. 

MC = antrate — costi variabili 

Se MC a espresso come cercantuale 
zeile antrate questa si trova fissanco !e 
rencite uguali al 00 cer cento 3 trovan- 
co ‘a percentuale dei costi variacili n 
relazione alle vendite. La sottrazione ci 
2uesia cifra cà ii marcine ci contribu. 


zione. 
er ssemoio se e 


vencite orevisie 
1.200.000 3 | costi variacili seno 
ci 200. i cosii variaciii “apcresen- 
iano ii 30. 12 per cento cel (CO der canto 
cne rapcresenta ‘e vendite». Cttenia- 
mo un margine ci contribuzione pari ai 


sen 


490 1F 20= 1 THEN PRINT 33 
IFI= 2 THEN PRINT 
5;0 NORMAL 
320 FORK=!T07 
= LO GOSOGL INT: = 

LAI (034X,2,2) 

540” PRINT C$6X,1,2); 
+ 12);C8X,2,2) 

350 NEGX 

560 PRINT 

570 NET 2 

590 GOSUB 1250 

590 UTAB 20 

500 ATAB 1 

510 PRINT * 
VENDITE=190 .30%" 

520 PRINT * COSTI 
VARIABILI= 50,12%" 

530 HTAB 3: PRINT C0$;*= 39,3%" 

540 FLASH 

550 HTAB 3: PRINT ‘(30645/51000)" 

560. NORMAL 


TABC29 - Ti 


39.88 per cento. Il livello di pareggio è 
calcolato dividendo i costi fissi per MC. 
(Si ricordi che MC è aspresso come 
percentuale delle entrate). 


punto di _ costi fissi 
pareggio — MC 


Caso asemplificativo 


Consideriamo questa situazione. || 
proprietario di un istituto di deilezza sta 
studiando un ampliamento ai attività. 
Egli ha individuato i costi fissi a variabili 
come sono raffigurati neila Tabella 1. 

Il proprietario stima che ie vendite po- 
trebtero ammontare a 51.000.000 nei. 
l'anno dell'espansione. Egli vuole sape- 
re quale sia il punto ci sareggio per 
quell'anno specifico, » quanto si debba 
incassare ogni giorno ser chiudere in 
pareggio. La risposte al suci interrogati- 
vi sì îrovano nella sezicne Dimostrazio- 
ne cella Tacnica del oregramma. 


Programma 
e oraparazione dei dati 


Il listato fornisca un orcgramma inte- 
rattivo scritto in Apriescît Sasic 3 col- 
laucato su Appie !l slus 3 su Apple ile. 
La logica ci orogramma 3 casata sugli 
aspetti ‘ecnici zel metoco ci sareggic 
già asaminato. 

Il oregramma è interamente a rocu- 
mentazicne autcmatica. 3 cuinci si cos- 
sono intrecurra dati secenco ‘e asigen- 
ze, Una caratteristica assenziale 3 ia 
orediscosizione per ‘’accrancimento 


570 TAB 1: ATAB 20: FLASH: 
PRINT *51000*: NORMAL 

380 TAB 19: HTAB 34; FLASH: 
PRINT "20505"! NORMAL 

590 INVERSE 

700 SOSUB 1360: VTAB 23: HTAB È 
PRINT *ADESSO CALCOLIAMO IL 
PUNTO DI PAREGGIO" 

710. NORMAL 

720. SOSUB 1360 

730. HOME 


DI 
(CS 
ti 
o 
ES} 
zZ 4 
= | 
DL] ge un 
ee 
DE 


nd 
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(i 

ro 
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A 
' 


300 PRINT *-* 

310 VTAB ?: HTAB (39 - T): PRINT 
#31 TAB 11: HTAB (39 - DI 
PRINT C0$ 


dei rudimenti dell'analisi di pareggio, 
quali sono stati indicati nel caso esem- 
plificativo dell'istituto di bellezza. 

Una volta che il programma è stato 
battuto e memorizzato su dischetto (ma 
è, volendo, disponibile già su dischetto, 
vedi a pag. 80) non c'è che da caricarlo 
nel computer e battere RUN. Il pro- 
gramma viene allora eseguito e viene 
presentata la pagina del titolo, seguita 
da una breve introduzione relativa al- 
l'impiego dell'analisi di pareggio. Dopo 
che si è premuto lo spazio compare il 
seguente menu: 

1. DIMOSTRAZIONE DELLA TEC- 
NICA 

2. CALCOLI DELL'ANALISI DI PA- 
REGGIO 

Se si sceglie 1 e si preme il tasto di 
ritorno il monitor visualizza i costi sia 
fissi sia variabili del nostro caso esem- 
plificativo. Un'altra pressione sullo spa- 
zio mostra come viene calcolato il mar- 
gine di contribuzione, e premendolo an- 
cora una volta si vede come viene cal- 
colato il punto di pareggio. Una nuova 
pressione sullo spazio mostra la formu- 
la del punto di pareggio riportata in Fi- 
gura 1. 

Le istruzioni sullo schermo chiedono 
di premere un tasto qualsiasi; quando lo 
si fa compare la formula con le cifre che 
riguardano il caso esemplificativo. Le 
risposte appaiono alla base dello scher- 
mo. A questo punto qualsiasi pressione 
di un tasto permette di calcolare il pro- 
prio punto di pareggio con il proprio in- 
put di dati. Il display sullo schermo in- 
dica: 


820 VTAB 1 

830 GOSUB 1340 

840. VTAB 7: HTAB 1 

850 PRINT "CHE NEL TUO CASO E”:* 
860 VTAB 9: HTAB (39 - T): PRINT 


SPCC T): VTAB il: sie (39 - 
T2): PRINT SPLC I 


870 PRINT 

880 GOSUB 1360 

890 VTAB 9: HTAB (39 - T): PRINT 
8910: VTAB 11: HTAB (39 - 72): 
PRINT .3988 

900. VTAB 13: PRINT "BREAK EVEN 
POINT CANNO)= 22342" 

910 GOSUB 1360 

920. REM FINE DELLA PARTE 


ISTRUZIONI 
ANALISI DEL 
940. REN PARTE ANALISI 


950 PRINT : INPUT "VENDITE 
PREVISTE? *;PS 


E ADESSO LA VOSTRA 
ANALISI DI PAREGGIO 
VENDITE PREVISTE? 
COSTI FISSI TOTALI? 
COSTI VARIABILI TOTALI? 

In pratica sono richiesti i tre elementi 
fondamentali d'informazione. Introdu- 
cete ognuno di essi, e premete il tasto di 
ritorno. Il computer eseguirà allora la 
formula e visualizzerà la seguente ri- 
sposta: 

MARGINE DI CONTRIBUZIONE = 
(risposta ai dati introdotti) 

A questo punto il programma chiede 
all'utilizzatore se vuol cambiare la per- 
centuale del margine di contribuzione, 
oppure di battere N per No. Nel secon- 
do caso il programma continua a calco- 
lare l'output. Se l'operatore vuol cam- 
biare la percentuale calcolata del mar- 
gine di contribuzione lo schermo stam- 
pa quanto segue: 

IL MARGINE DI CONTRIBUZIONE 
DEVE ESSERE? .% 

Dopo che si è premuto il tasto di ritor- 
no il programma calcola le cifre di pa- 
reggio e le visualizza alla sommità dello 
schermo. Per l'output Punto di pareg- 
gio quotidiano abbiamo adottato nelle 
formule contenute nelle linee 112 e 115 
il numero di 254 giorni operativi. Ma se 
l'impresa svolge nell'arco di un anno la 
sua attività per un numero di giorni su- 
periore occorrerà cambiare le cifre di 
quelle linee. perché siano uguali al nu- 
mero dei giorni in cui l'azienda opera 
effettivamente. 

Se si vuol proseguire nelle analisi di 
pareggio calcolandone altre, lo scher- 


960 INPUT *TOTALE COSTI FISSI? 
TE 

970 ‘INPUT "TOTALE COSTI 
VARIABILI? *;TV 

980 LET Ad = 100 - CTV / PS * 


100) 

990 LET RD = A4: GOSUB 1340:A4 = 
RD 

1000. FORX = 1 TO S: PRINT : NOT 
X 


1010 PRINT "MARGINE DI 
CONTRIBUZIONE=" ;A4;*%% 

1020 PRINT "VUOI CAMBIARE IL 
MARGINE DI" 

1030 PRINT "CONTRIBUZIONE % ?* 

1040 UTAB 24: PRINT “RISPONDI SI 
O NO, PER FAVORE" ;: GET A$ 

1050 IF A$ = "N" GOTO 1070 

1060 HOME : INPUT *IL MARGINE DI 
CONTRIBUZIONE % SIA: *;A$: GOTO 


1070 
1070. HOME :BE = TF / CA4 * 


mo darà a questo punto le indicazioni 
necessarie per continuare. 

Per saltare la fase del programma 
che riguarda la Dimostrazione della tec- 
nica si può battere 2, dal menu iniziale. 
Il programma darà immediatamente le 
indicazioni per l'input dei dati. 


Altre applicazioni 


Il concetto è utile anche per stabilire il 
punto di pareggio in termini di margine 
di profitto. Si ricordiche il criterio del 
pareggio inserito nel programma elabo- 
ra il volume necessario perché non ci 
sia profitto. Ma se invece si pensa (ma- 
lattia comune nel mondo delle imprese) 
di essere in affari per fare profitti? Dicia- 
mo che si desideri nel progetto un mar- 
gine di profitto del 10 per cento. Aggiun- 
giamo inoltre che il margine di contribu- 
zione originale del progetto era pari al 
25 per cento, ma questo vale per il pro- 
fitto zero. In pratica il profitto del 10 per 
cento desiderato agisce adesso come 
costo variabile. Occorre modificare in 
conformità la percentuale del margine 
di contribuzione: 25% — 10% = 15%. 
Adesso si può calcolare il punto di pa- 
reggio impiegando il criterio della per- 
centuale d'entrata: 


margine di contribuzione 
(nuova cifra modificata) 


Questo dà il margine di profitto inte- 
grato nell'impresa. Nel programma ba- 
sta sottrarre il margine di profitto richie- 
sto (in punti percentuali) dal margine di 


pareggio = 


+01) :RD = BE: GOSUB 1340:BE = 


RD 

1080 PRINT "BREAK EVEN POINT 
CANNO)=" ; BE 

1090 LET FÈ = TF / 254:RD = FC: 
GOSUB 1340:FC = RD 

1100 PRINT "COSTI FISSI AL 
GIORNO=" ;FC 

1110 e, *BREAK EVEN POINT 
GIORNALIERO="; 

1120 LET DB = (ATF / 254) / Ad) + 


100 
1130. LET RD = DB: GOSUB 1340:DB = 


RD 

1140 PRINT DB 

1150 GOSUB 1360 

1160 HOME : PRINT "VUOI 
CONTINUARE A CALCOLARE? (SI 0 
NO)";: GET A$: IF A$ = "9" THEN 
930 


1170. HONE 
Segue a pag 42 


41 


contribuzione originale visualizzato sul 
monitor. Oppure se si preferisce si DUÒ 
trattare il profitto in termini di lire, 2 quin- 
di come costo fisso. Se si decide di usa- 
re questo criterio si deve aggiungere !a 
cifra del profitto in lire alla categoria de! 
costi fissi. 

Un'altra utile applicazione cella tecni- 
ca di pareggio si trova nella determina- 
zione delle vendite in lire necessarie cer 
ottenere un determinato liveilo di protit- 
to. Supponiamo che una società desi- 
ceri un profitto fisso in lire di 150 milioni. 
In questo caso il profitto e trattato come 
costo fisso. Lo si deve aggiungere ai 
costo fisso stabilito per il progetto. a si 
deve calcolare il punto di careggio co- 
me si è fatto prima. La sola differenza 


Segue cda pag. 41 
{190 END: REI FINE DEL 
PROGRAMMA... SEGUONO DATI E 


SUBROUTINE 
1190 DATA AMMORTAMENTO, (800 
1200 DATA ASSICURAZIONI 210 
1210 DATA AFFITTI,4800 
1220 DATA INTERESSI,340 
1230 DATA SERVIZI,900 
1240 DATA LAVANDERIA & 
MANUTENZ. 360 
1250 DATA TOTALE COSTI 
FISSI ,8910 
1260 DATA COSTO DELLE MERCI 
VENDUTE ,2755 
1270 DATA RETRIBUZIONI, 20005 
1280 DATA 
APPROWIGICONAMENTI , 4800 
1290 DATA — IMPOSTE 
RETRIBUZIONI ,2015 
1300. DATA SERVIZI,610 


1310 DATA LAVANDERIA E 


sarebbe l'aggiunta della cifra in lire alla 
parte dell'input dei dati che riguarda i 
costi fissi. 

Una terza applicazione è l’individua- 
zione dell'effetto di budget pubblicitario. 
La pubblicità è essenzialmente un co- 
sto fisso. Qualsiasi costo fisso che vie- 
ne aggiunto alza il punto di pareggio 
dell'impresa, e questo richiede altre en- 
trate (0 minori costi variabili) per soppe- 
rire al costo. Le entrate per i costi fissi 
vengono dal margine di contribuzione. 
Per esempio se la percentuale del MC è 
del 25%, sono necessarie 4.000 lire ag- 
giuntive di entrata per coprire ogni 
1.000 lire in più di costo fisso. Così se 
l'impresa sta studiando l'eventualità di 
spendere 2.500.000 per un avviso pub- 
blicitario, avrà bisogno di 4 x 2.500.000, 
ossia 10.000.000 di vendite in più solo 
Der coprire il costo dell'avviso. Questo 
criterio fornisce alla piccola impresa 
una regola per giudicare i risultati della 
pubblicità: se dopo un adeguato perio- 
co di tempo le vendite in più non giustifi- 
cano il costo dell'avviso. la campagna 
può essere abbandonata. 

Un ultimo interessante impiego di 
questa tecnica si trova nel settore della 
praticabilità dell'espansione. Qui l'ana- 
lisi suggerisce se sia 0 no il caso di 
esplorare più attentamente l'idea di 
aspandere le attività. Studiando l'even- 
tualità di un ampliamento, si dovrebbe- 
ro valutare gli aumenti di costo che ne 
cerivano. Tenuto conto di questi costi. 
‘analisi dirà quale sia l'ammontare ceile 
vencite necessario per il pareggio. 
Corey D. Schou e Ronald S. Rubin 


MANUT.NE60210,510 

1320 DATA TOTALE COSTI 
VARIABILI 30665 

1330 REM ROUTINE DI 
ARROTONDAMENTO 

1340 LET RD = CC INT (RD # 100 + 
15)) / 100): RETURN 

1350 REM PAUSA DI LETTURA 
SCHERMO 

1360 VTAB 24: PRINT *-BATTI 
QUALSIASI TASTO PER 
CONTINUARE-';: GET A$: RETURN 


| Ma col VisiCalc... 


Supponiamo di voler produrre un 
certo prodotto. Avremo delle spese 
{ fisse (macchinari. investimento per 
| ricerca e messa a punto, affitti, pub- 
': blicità, ecc.), e delle spese variabili 
in funzione di quanti pezzi verranno 
| poi effettivamente prodotti e messi 
sul mercato (materie prime. packa- 
! ging, manodopera, ecc.). Dovremo 
poi decidere che sconto praticare al 
rivenditore ma anche a che prezzo al 
pubblico mettere in vendita il nostro 
| prodotto... Ecco un modello, facil- 
mente impostabile su VisiCalc, per 
ottimizzare i calcoli e scoprire quan- 
to siguadagnera o quanto si perderà 
secondo i livelli di vendite raggiunti. 
Qui a destra riproduciamo un esem- 
pio di quel che si vede sullo schermo 
(ed è facilmente stampabile su car- 
ta). In pratica per ottimizzare i calco- 
li. basterà portare il cursore di Visi- 
Calc in corrispondenza delle caselle 
cne qui risultano evidenziate in gial- 
io. e sostituire i dati. Tutto il resto 
cella tabella si aggiornerà automati- 
camente. Nel nostro esempio vedia- 
mo neila colonna Profitti a percite 
che il break-aven point. il punto cicè 
oltre il quale si guadagna. è a 2.500 
pezzi venduti. Sotto è riportato ciò 
ene occorre introdurre in ciascuna 
casella del VisiCalc oer costruire 
questo modello. 


384 JLXC149=31?: = EI E 19200)) 


«J1£(109-219):-.594(Ela400,) 


vo Mrrenino 


} 
Lùttlo 


27 O7xEtx,Jixo190=19) >. 


| À Il B_ II CI D_ | 
Il Analisi del Break-Even Unita’ Profitti 
2| vendute o perdite 
3Nome prodotto 100. -45072500 
4|Frezzo al pubblico 48000 200. -43145000 
Sì 300 -41217500 
è|Costi fissi (Totali) 400 -39290000 
7) Ricerca 12000000 500 -37362500 
8| Marketino 28000000 600 -35435000 
9 Altri 7000000 700 -33507500 
10|TOTALE costi fissi 47000000 800° -31580000 
ill 900° -29652500 
12|Costi variabili (Per Unita’) 1000 -27725000 
13] Manodopera 2800 1100 -25797500 
14) Materie prime 1200 1200 -22870000 
15] Packagina 550 1300 -21942500 
16] Altro 175 1400 -20015000 
17|TOTALE costi variabili 4725 1500 -18087500 
18] 1600 -16160000 
| 19|Incremento 190 1700 -14232500 
| 20|Sconto (%) 51) 1800 -12305000 
zi) 1900 -10377500 
221 2000 -3450000 
| 231 2100 -4522500 
| 24| 2200 -4595000 
| ‘25 2300-256750 
| 26) 2400 -740000 
I 271 2500 1187500 
88 Altri D13 D193E3k0,d11(100-819)}-(E9+(Ei6xC14}} 
E sE hitro 
6 C7+618 E] 
0A CQsEgx(,d1x(10)-819)}-<E9+(B162C3)) 18 


AS TOTALE cost fissi 
ES RSIMIES...E9) 


ar (,01x(100-E19))-(E9+(E16xC9)) 
Ciò C9+£18 


211xE9x(,01x(100-819))-(E%#(BloxCi1)) 
Manodopera 

U] 

CHE 
C12a6gre,01x(100-£19)}-(69+<E16x012)) 
Materie prime 

i) 

C12+618 
CI9SE9%(,01x(100-E19))-(E9+(E16xC13)) 


Ul 
(14 Cis+e18 


Fai ,019(100-E19)}-(E9+(£108C15)» 
osti variaolli 

E12,,,815) 

18 

Fat. 01X(100-E19))-<E94\El0xC10)! 


Lia 


«d13(100-E19))-(B9+(E162C17)) 


mento 


74615 
381 ,91X(100-E19)}-(B9+(E16xC13)) 


i CIPPIE 
computer 


AZIENDE 
PROFESSIONISTI 
PROGETTISTI 
SCUOLE 
HOME € HOBBY 


E... 
Più linguaggi di program- 
mazione (Pascal, Basic e- 
steso Applesoft, Integer 
basic, Monitor e Assem- 
bler) 
— Memoria RAM fino a 64 
Kbytes 
— Grafici a colori ad alta 
risoluzione 
— floppy-Disks e due si- 
stemi operativi su disco, 
come nei grandi sistemi 
— Tavoletta grafica inte- 
rattiva 
— Interfacce intelligenti di 
tipo parallelo, seriale e 
per comunicazioni 


Distribuzione per l'Italia 


IRET 
| informatica 


F.8.M. Via Flaminia, 395 


Roma - tel. 06 399279 / 3960152 


sala di 
esposizione permanente 


osttà 
cute odici 
Ma 


Un rintocco sclo all'una, 
alle 12. E una sveglia. 
non è difficile aggiungere 


(A altri segnali d'allarme, o 
> cambiare il carillon dei rintocchi... 


Vecchie, 


care lancette 


uesto oerecramma Acciescit simuia 
Di orciocio alettrico con !ancatte 
minuti = dei seconci. Ha 
una scia sveglia. na si vuo aggiungere 
molto facilmente un seconco segnale 
acustico. 5 zisoene ci rintecchi. tanti 
quante sono e ora ca batters. cisattiva- 
cili a ricnie Der spiegare come iun- 
ziona ii orocramma sara necessario at- 
îribuire a care sarti cell'orcicgio nomi 


d 
MA 31773 


LINCOLN, 


54: HPLOT 


20,à 


TO 259,68: NEX 
120 HPLOT 9,9 TO 229,0 TO 279,15? 


TO 9,3: HCOLOR= 7 
15 T0 145: FPLOT 79,A 
Ai NET 


2 15) 0 


E 19008 
C = 4): HPLOT 


capaci di resuscitare eventuali odi sopiti 
cer ‘a geometria. Prima ci :utto il qua- 
drante dell'orolegio non è più un qua- 
arante a per noi diventa un circolo. La 
lancette spariscono cer far posto ad an- 
geli che cominciano alle 3 a ci ii ruotano 
in senso antiorario. il ioreilino al centro 
cell'orciogio. cove sono imperniate ‘e 
ancatte. diventa il centro cel circolo. 
Acesse che i'orciogio è sistrutto si 


135 AB! APPLICANDO 
200 HPLOT 124,17 TO 136,17 TO 
136,35: APLOT 108,22 10 128,22: 


HPLOT | 


70 142,23 70 


HPLST 142,127 TO 198 

39,143 TO 142,143 701 

d 138,140 
n" 


0 32,77 


30 TÒ 31,20 


R= 9: HPLOT 212,150 70 
30 70 215,135 TO 212,135 
TO 212,132 70 siate 


250 HPLOT 217,120 702 20,130 
220,135 TO 217,535 T0 ER: 
0 217,13 

260 HPLOT 222,138 TO 222,130 TO 
225,120 TO 225,135 TO 222,135 

270 HPLOT 227,528 TO 227,535 

280 HPLOT 229,127 TO 229,123: 


APLOT 229,130 TO 229,135 
SE, Lg 224,130 TO 231,130 70 
31,135 TO 234,135 
“PLOT 236,130 TO 239,130 TO 
239,135 T0 236,135 TO 226,132 
70 239,132 
310° HPLIT 241,125 TO 241,130 TO 
243,130 TO 244,131 TO 244,13 


a00° 


puo cominciare a sciegare il program- 
ma. Anzitutto c'è una iunghezza per || 
iato terminale ci ciascun angelo. E que- 
sto ii solo iato dell'angolo visivile come 
parte dell'orciogio. il sregramma trova il 
seno a il coseno cell’ angelo = poi io 
moitiplica cer a lunghezza. Queste so- 
no ora ie coordinate cei cunto nei quale 
termina l’angoio (lancatta). Poi ii proce- 
dimento consiste semolicemente nel 


320 HPIOT 249,129 TO 249,535 TO 
246,135 19 246,133 70 RR 

330 APLOT 251,130 70 204,530 Te 
254,135 TO è 91 1395 70 251,1 


250 UTAR 21: INPUT "VIDI N 
ALLARME? (S/N)'GANS: IF LEFT$ 
(ANS I) = *5" THEN 370 

60 A = ds GOTO 400 


370 PRINT A CHE JIRA DEVE 
SUONARE?" NP 
"ORE ,MINUTI: FA) I290R 
ACIORI: 59 THEN 
370 

380 HOME | VTAB DI 

390 A = INT (A):9= INT ‘B):C= 
INT <0) 

300 PRINT "CHE ORE SONO ADESSO?*: 
INPUT "ORE MINUTI :*:;D,E: IFD< 
i ORD? IZORSC(IURE) 59 
THEN 400 

410 D= INT (D):f= INTE) 

320 HOME 

430 U = 450 - <D + 30):M = 450 - 
CE # 5) 

440 Yr=u 

450 VTAB 21 

Sé0 INPUT "VUOI ! RINTOCCHI A 
OGNI ORA? (S/N) ;X$: IF LEFT$ 


(X$,1) = ‘S" THEN CH= | 
470. HOME 
480. IF 8 = 3 THEN 550 


tracciare il segmento fra il centro del 
circolo e questo punto. Ecco fatta una 
lancetta! Le altre lancette vengono di- 
segnate in modo analogo. 

Tutto bene, ma non si era detto che 
l'angolo comincia alle 3 e ruota in senso 
antiorario? È lecito chiedersi come pos- 
sa funzionare, e si dovrà quindi incre- 


mentare l'angolo in senso negativo, e 
invece di farlo iniziare a 0 gradi, farlo 
partire a 90. Ma dato che stiamo ruotan- 
do nel senso negativo, lo avviamo a 450 
e lo facciamo scendere a 90. Chiarissi- 
mo, no? 

Il programma è in Applesoft, quindi 


basta batterio per farlo girare. A dir il 


vero il programma non impiega molte 
tecniche sfavillanti, ma la routine di mu- 
sic poke fa risparmiare un po' del tempo 
che occorrerebbe per scrivere separa- 
tamente tutti i poke. Chi volesse può 
divertirsi a modificare il suono dei rin- 
tocchi della sveglia, o ottenere sveglie 
multiple, a migliorare la precisione. 


i Ì 640-700 Lancetta dei secondi e annessi 
Batte il tempo COSÌ 710 Loop principale del tempo, fa una 
Eccole funzioni svolte dalle linee del programma, elenca- pausa di un secondo 
te per facilitare eventuali modifiche. 720 Cancella lancette dei secondi, disegna 
Linea Funzione di nuovo le altre 
40-70 Routine musicale 730 Torna indietro: un altro secondo 
90 Raggio del quadrante 740-760 Un nuovo minuto! 
100 Centro del quadrante 750 Cancellare questa linea per eliminare 
80, 110-130 Imposta l'immagine ad alta risoluzione il “clic” a ogni minuto 
140-190 Disegna il quadrante 770 Controllo del tempo dei rintocchi 
200-330 Disegna numeri e scritte sul quadrante 780 Controllo della sveglia 
350-390 Imposta la sveglia 800-900 Routine della sveglia 
400-420 Imposta il tempo 800 Imposta :l flag, agisce come gosub 
430-440 Converte il tempo in gradi 840-870 Cambiare qui per cambiare il tempo di 
450-470 Imposta i rintocchi ripristino dopo la sveglia 
480-540 Stampa l'ora della sveglia 970-940 Assicura che non ci sia overflow di 

e la converte in gradi minuti 

560-580 Imposta la lancetta dei minuti 950-1020 I rintocchi 
590-630 Imposta la lancetta delle ore 950 Imposta il flag. agisce come gosub 
490 B8 = STR$ (B) 680 SX = INT (SX + .,5):SY = INT 850 IF PEEK( - 16384) > 120 
500 ]F B< 10 THEN B$ = "0" + B$ (SY 4 .5) THEN 910 


510 VTAB 21: INVERSE : PRINT *L” 
ALLARME SUONERA” ALLE ‘A":'B3"" 


520 NORMAL 

530 A = 450 - (A * 30):B = 450 - 
(B * 6) 

540 ]F A = 90 THEN A = 450 

550 REA 

560 MA = ]# (COS (M/ 180% 


3.1415) # 47:MB = H- SIN (M/ 
180 # 3,1415) * 47 
970 MA = INT (MA + .5):MB= INT 
(MB + ,5) 
980 HPLOT I,H TO MA,MB 
sue a INT {450 - M) / 6) 
di 2) 


600 U= INT KU + ,5) 

610 UA=1+ COS (U/ 180 * 
3,1415) * 38:UB = H- SIN (U/ 
180 # 3,1415) * 38 

620 UA = INT (UA + ,5):UB= INT 
(UB + ,5) 

630 HPLOT 1,5 TO UA,UB 

640 IF TE =1 THENTE=0: GOTO 


810 
650 IF TE = 2 THEN TE= 0: GOTO 


960 

660 S = 450 

670 SK=I# (COS (S/ 180% 
3,1415) # 20:SY = H- SIN (S/ 
180 * 3.1415) * 20 


690 HPLOT 1,H TO SX,SY 

700 IFR=1THNS=S- (E + 
6:R= 0: = 0 

710 FOR EE=1 TO 870: NEXT 

720 HCOLOR= 0: HPLOT 1,H TO 
SX,SY: HCOLOR= 3: HPLOT 1,H TO 
MA,ME: HPLOT ],H TO VA,UB:S = S 
- 6: IFS< = 90 THEN 740 

730 GOTO 470 

740 HCOLOR= 0: HPLOT I,H TO 
UA,UB: HPLOT ],H TO MA,MB: 
HCOLOR= 3 

750 PP= PEEK ( - 16336) + PEEK 
{ - 16936) — PEEK ( - 16336) 

760 H = M - 4: IF M= 90 THNN= 
450:YY = YY - 30:U= YY: IF YY 

= 90 THEN YY = YY 4 260:U= 


Lai 

270 IF CH= { AND N= 450 THEN 
GOSUB 950 

780 JF M= BAND YY= (A) THEN 


800 
290 GOTO 550 
800 TE = 1: GOTO 550 


810 POKE - 16368,0 
820 R=1 
€30. FOR II = 1 TO 25: POKE 


780,130: POKE 781,150: CALL 
782: NEXT 
840 EX = EX + 10 


860 FOR UU = | TO 10: FORT] = 
TO 20:P = PEEK ( - 16336) + 
PEEK { - 16336) + PEEK ( - 
18336) - PEEK € - 16336) - 
PEEK € - 16336): NEXT 11,UU 


870 EX = E + 7 

880 IF PEEK € - 16384) ) 128 
THEN 910 

890. IF EX >) = 240 THEN 910 


200 GOTO 830 

SIO RCOLOR= 0: KPLOT I,H TO 
MA,MB: HPLOT I,H TO UA,UB: 
HCULOR= 3 

920 IF EX) 59 THNE= E - 
60:M = Me di dog = 90 THEN 
M = 450:YY - 30:U= Vf: IF 
ws DO THEN YY = 4504 

930. IF EX ) 59 THEN 920 

940 GOTO 550 

950 TE = 2: GOTO 550 

960 IF (450 - U) / 30 < 1 THEN 
FOR 6G = 1 TO 12: GOTO 980 

970 FORGG= 1 TO (450 - U) / 30 

980 FORO = 50 TO 100 STEP 10 

1000 POKE 780,0: POKE 781,160: 
CALL 782: NEXT : FORUA=1T0 
50: NEXT : NOT 

1010 EX = (GG - 1) # 2.75:R=1 

1020 RETURN 

Disponibile su dischetto 


us 
$ 
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qiOCHI Un castello abbandonato? Di notte vi si aggirano delle 
ombre, si accendono delle luci. Tu sei il guardiano 
e hai 25 colpi da sparare contro gli intrusi... 


Pronti, puntare, 
fuoco! 


‘antica casa abbanconata ha dieci 

iinestre, tutte buie. Lì vicino c'è un 
vecchio albero morto. All'improvviso 
una delle finestre si illumina. Prendi la 
mira e spari. Bang! Beccatc! 

Questa è la scena del gioco di tiro a 
bersaglio. Si punta il fucile con le padcle 
{ma è meglio, molto meglio. usare il joy- 
stick) e si attende che si illumini una 
finestra (o un bersaglio 2cnus). Prima 
che si spenga bisogna mirare e far fuo- 
co con il pulsante. ll gioco gira su 16K a 
impiega la grafica cclore a cassa risclu- 
zione, il suono, e un abile segnapunti. 
cne ricorda il punteggio massimo rag- 
giunto in più giocate (recorc del giorno). 


de casiasaisi cin di O EVIL 


< 


to: 
Li 


Come si gioca 


Giocare è molto semplice. Dopo il ti- 
tolo (e le istruzioni facoltative) viene di- 
segnata l'immagine di una casa (sì, è 
una casa: qui nell'illustrazione abbiamo 
un po’ esagerato...) e di un albero. Un 
puntino bianco indica dove è puntato il 
fucile. La posizione è determinata dalle 
paddle 0 e 1; PDL(0) controlla la posi- 
zione X e PDL(1) controlla la posizione 
Y.A caso si illuminerà una finestra (op- 
pure uno dei due bersagli bonus). Si ha 
allora un tempo limitato per mirare e 
sparare (per i bersagli bonus è conces- 
so un tempo più breve. No, non diremo 
dove sono). Si fa fuoco premendo il pul- 
sante 0 o il pulsante 1, sulle paddle. Se 
si fa centro si sentirà un “aaargh" e 
verranno assegnati 50 punti (0 200-250 
per un bersaglio bonus). In caso contra- 
rio il bersaglio sparirà. Dopo la compar- 
sa di 25 bersagli (non dopo che si è fatto 
centro 25 volte) o dopo 285 tiri il gioco 
termina e il punteggio massimo viene 
eventualmente aggiornato. 


Il programma 


Il loop del programma va da linea 
10110 alinea 10300. Il programma per- 
corre questo ciclo 25 volte (per 25 obiet- 
tivi) o meno se le munizioni vengono 
esaurite prima. Attende dapprima un 
periodo di tempo casuale (nelle linee da 
10130 a 10150), sceglie un bersaglio a 
caso e lo colloca sullo schermo. Poi il 


programma va in loop e durante questo 
tempo l'utilizzatore può sparare all'o- 
biettivo. Se non lo centra il programma 
cancella l'obiettivo. Nel riquadrato c'è 
una spiegazione dettagliata della fun- 
zione svolta dalle varie linee. 


Come personalizzario 


Numero dei bersagli concessi. Ba- 
sta cambiare la linea 10110; FOR VI = 
1 to 25, sostituendo a 25 qualsiasi nu- 
mero si desideri. Inoltre (molto impor- 
tante) sostituire con lo stesso numero il 
25 nella linea 6000. 

Numero dei tiri concessi. Cambiare 
la linea 10070, AM = quanti tiri sono 
concessi. 

Periodo di attesa fra la comparsa 
dei bersagli. Cambiare la linea 10130, 
WT = il periodo di attesa. Più alto è WT 
più lunga è l'attesa. 

Durata della presenza del bersa- 


glio sullo schermo. Cambiare la linea 
10180, WT = tempo. Peri bersagli bo- 
nus (WT = 102) ho dato minor tempo. 
Questo può essere cambiato. 

Valore dei bersagli. VA è il valore di 
uno specifico bersaglio. Le linee 10166 
e 10167 determinano il valore dei due 
bersagli bonus; la linea 10168 determi- 
na il valore delle finestre. 

Suono. Ci sono tre routine sonore 
scritte in memoria all'inizio del gioco. 
Esse sono rappresentate dalle variabili 
GUN (fucile), PIP, e AANARGH ogni vol- 
ta che il programma accede a una di 
esse. Per cambiare la durata di PIP 
cambiare il primo 48 nella linea 63030 
con un numero compreso fra 0 e 255. 
Per cambiare l'altezza del suono di PIP 
sostituire il 16 nella linea 63030 con un 
numero compreso fra 0 e 255. Per cam- 
biare il GUN sostituire il secondo 32 
della linea 63020 con un numero com- 
preso fra 0 e 255 


Per cambiare l'altezza dei suono dei- 
l'AAARGH cambiare il 56. Per cambiare 
la durata cambiare il 21. 


Il punteggio record 


Il trucco consiste nello scrivere il pun- 
teggio massimo in memoria dove non 


100 REI #844%%4XXH#HHH% 


PETETEETETittri 

Ji REA #* PRONTI, PUNTARE, 
FUOCO + 

12 REI * DI ANDREW BERMAN 
Ti 

13 REI #* COPYRIGHT (C) 1983 
+ 

14 REI #8 BY APPLICANDO 
ET 

15 REM #* AND MICRO-SPARC, 
INC. #4 

16 REM #* LINCOLN, MA. 01773 
ET 

200 REMO #RERKARAHRARAHA 
ETTETEETTECErhi 


30. DIM IACI2) ,JAC12): REY DIMENS, 
VARIABILI 

35 IF PEEK (2046) { ) 123 0R 
PEEK (2047) < > 213 THEN POKE 
2046,123: POKE 2047,213: POKE 
2044,9: POKE 2045,3: REM 
INPOSTA FLAG PER PUNTEGGIO 
MASSINO 

40° GOTO 10000: REM CONTROLLER 

1999 REI STAMPA PUNTEGGIO FINALE 
E CONTROLLO EVENTUALE NUOVO 
RECORD 

2000 VTAB 21: HTAB 3:NM = SC: 
GOSUB 51000 

2005 PRINT 

2019 IF SC C = #S THEN RETURN 

2020 HS = SC: HTAB 24:NM = HS: 
FLASH 1 SOSUB 61000: NORMAL 
HTAB | 

2050 POKE 2045,4S / 256: POKE 
2044, HS - PEEK (2045) # 256: 
REN SCRIVE IN MEMORIA IL RECORD 

2999 REM STAMPA IL PUNTEGGIO 
CORRENTE 

3000 VTAB 21: HTAB 3:NM = SC: 
GOSUB 61000: RETURN 

3999 END 

4000 REY LO CANCELLA 

4010 IF 47 < 3 THEN 4100: REM 
SPECIALE 

4020 I = IA(W7):J = JA(W7) 

4030 COLOR= 3: GOSUB 7100 

4040 GOTO 4200 

4100. IF 47 = 2 THEN 3150; REI 2 
SEPERATI 

4110 COLOR= 0 

4120 HLIN 19,21 AT 3: PLOT 20,2 
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verrà azzerato se il programma viene 
fatto ripartire di nuovo. Lo si fa nella 
linea 2030. Il valore MODULO 258 è 
messo in 2044, mentre il valore /256 è 
messo in 2045. 

Alla linea 10070 viene ritrovato il pun- 
teggio massimo. In questo modo si può 
fare quasi di tutto (tranne che spegnere 


4130 GOTO 4200 

4150 COLOR= 0 

4150 HLIN 3,5 AT 23: PLOT 4,24: 
PLOT 3,25: PLOT 5,25: REY 33 
FRA GLI ALBERI 

4170 GOTO 4200 

4200 IF CO=1 THEN CO= SCAN 
X0,Y0): REM IMPEDISCE CHE TORNI 
AL VALORE 

4210 IF NP = 0 THEN CALL PIP 

4220 REA NON OCCORRONO 
SPIEGAZIONI 

4230 RETURN 

4999 END 

3000 REM DISEGNA IL BERSAGLIO 

5010 IF 147 < 3 THEN 5100: RBI 
SPECIALE 

5020 i = 1A(W7):J = JA(W7) 

5030 COLOR= 1: GOSUB 7100 

5040 GOTO 5200 

3100 IF 47 = 2 THEN 5150: REY 2 
SEPERATI 

5110 COLOR= | 

5120 HLIN 19,21 AT 3: PLOT 20,2 

5130 GOTO 5200 

5150 COLOR= | 

5160 HLIN 3,5 AT 23: PLOT 4,24: 
PLOT 3,25: PLOT 5,25: REM 3X3 
FRA GLI ALBERI 

5170 GOTO 5200 

5200 IF SCRNC X0,Y0) = 1 THEN CO 
= 1 

3210 CALL PIP: RETURN 

5220 REY L' ISTRUZIONE 
PRECEDENTE IMPEDISCE IL RITORNO 
AL MARRONE 

5999 REM PUNTAMENTO E SPARO 

4000. IF AMO = 0 THEN POP_:X8 = 
UT: NEXT X8:VI = 25: NEXT VI: 
GOSUB 4000: GOTO 10320 

6003 SH = 0: REM --CLEAR SEGNO DI 
COLPITO 

6005. REM PRIMA POSIZIONE? 

5010 IF T6 = 1 THEN 6100: REY DA 
QUI SIAMO GIA” PASSATI 

6020 T6=1 

6030 XP = INT € POL (0) * 39 / 
255) :YP = INT (POL (1) #39 / 
255) 

5040 X0 = XP:YO = YP:C0 = SCRNC 
XP,YP): COLOR= 15: PLOT XP,YP: 
GOTO 6200 

6100 XP = INT C POL (0) # 39 / 


il computer) e il punteggio massimo sa- 
rà conservato. Si può perfino far girare 
un altro programma e poi girare nuova- 
mente questo senza distruggere il pun- 
teggio massimo. 

Occorre notare però che quando si fa 
girare per la prima volta il programma ci 
sono di solito dati indesiderati negli indi- 


255) :YP = INT ( POL (1) * 39 / 
259) 
#110 IF X0 = XP AND YO = YP THEN 


6130: REM NESSUN CAMBIAMENTO 
6120 COLOR= CO: PLOT XO,YO:X0 = 
XP:YO = YP:CO = SCRNC XP,YP) 

6130 COLOR= 15: PLOT XP,YP 

$200 REI COLPITO? 

6210 IF PEEK € - 16287) ) 128 OR 
PEEK ( - 16286) ) 128 THEN 
6300: REM SI! 

$220 RETURN 

6300 REM SI, COLPITO! 

6305 VTAB 24: CALL - 848 

6310 CALL GUN:AMMO = AMO - | 

6315 IF C0=4 OR CO = 13 THIN 
VTAB 24: INVERSE : CALL - 868: 
HTAB 1: PRINT “PERCHE” SPARI 
CONTRO LA PORTA?*;: HTAB 1: 
NORMAL : VTAB 21 

6320 IF C0= | THEN SH=1 

5330 VTAB 21: HTAB 26: IF AO < 
10 THEN PRINT " *;: INVERSE : 
IF AMO = 0 THEN FLASH 

6340 PRINT AMO: NORMAL 

6350 RETURN 

6999 END 

7000 REN -DISEGNA L’ AREA 

7010 SR : COLOR= 10 

7020. FOR X = 10 TO 30: VLIN 5,35 
ATX: NEXT 

7030 COLOR= 8 

7040 FOR UO = 3 TO 12:1 = 
TACWO):J = JACWO): GOSUB 7100: 


NEXT VO 

2050 GOTO 7110: REN SSALTA LA 
SUBROUTINE 

7099 GOTO 7110 

7100 FOR 25 = ITOI + 2: VLIN 
J,d + 2 AT 25: NEXT 25: RETURN 

7110 COLOR= 13: PLOT 20,27: HLIN 
19,21 AT 28: FOR 21 = 29 70 35: 
HLIN 19,22 AT 21: NEXT ZI 

7120 COLOR= 4: FOR 2 = 30 70 33: 
HLIN 19,21 AT 2: NEXT 

7130 coLoR= 2: HLIN 11,29 AT 4: 
HLIN 10,30 AT 5: HLIN 9,31 AT $ 

7140 COLOR= 12: HLIN 18,22 AT 36 

7150 COLOR= 7: FOR 2= 36 70 99: 
HLIN 0,39 AT 2: NEXT 2 

7150 COLUR= 12: HLIN 19,22 AT 36 

7170 COLOR= 7: FOR 2 = 30 TO 35: 
HLIN 0,9 AT 2: HLIN 31,39 AT 2: 


| 1__&-P@1_________——1—_——1—111____Èm.È 


il 
| Ecco ciò che fanno le linee 


| 2000-2999 Stampa il punteggio 10170 Gosub a linea 5000 
i finale e controlla se è 10180 Sceglie un limite di 
| stato raggiunto un tempo. | bersagli ex- 
| nuovo punteggio tra hanno meno 
| massimo. tempo. 
| 3000 Stampa il punteggio 10190-10220 Esegue il loop. Se il 
i corrente. bersaglio è colpito 
|| 4000-4999 Cancella il bersaglio interrompe e salta a 
| 5000-5999 Disegna il bersaglio linea 10250 
ll 6000-6199 Cancella e ridisegna 10230-10240 Cancella il bersaglio 
| la posizione del fuci- senza segnare punti 
| le. Controlla se ci so- e salta a 10300. 
I no ancora munizioni 10250-10290 Centrato! Suona per 
| 6200-6299 Controllase c'è stato segnalare bersaglio 
| un tiro colpito e aggiorna il 
| 6300-6399 Se c'è stato un tiro punteggio. 
questa routine con- 10300 Fine del loop princi- 
trolla se si è colpito il pale del programma. 
bersaglio. Inoltre sot- 10305-10320 Informa l'utilizzatore 
trae le munizioni usa- che ha esaurito i ber- 
te e stampa la quanti- sagli. Ciò si vede 
tà rimasta. molto di rado, perche 
7000-7099 Questa routine dise- nel 95% dei casi l'uti- 
7110-7999 gna casa e albero. lizzatore esaurisce 
7100 Subroutine per dise- prima le munizioni. 
gnare la finestra. La 10330-10340 Conclude il gioco. 
posizione della fine- 10350-10370 Chiede all'utilizzato- 
stra X nell'angolo alto re se vuol giocare di 
a sinistra è memoriz- nuovo. In caso nega- 
zata nelle variabili tivo termina. 
IA(X) e JA(X). 60000-60020 Riceve dall'utilizza- 
8000-8999 Istruzioni. tore una risposta S 
9000-9999 Titolo (si) o N (no). 


10000-10100 Imposta il gioco. 
10110-10300 Loop principale del 
programma. 
10130-10150 Attesa casuale prima 
della comparsa del 
bersaglio. 
Sceglie quale bersa- 
glio illuminare. Sce- 
glie inoltre il valore. 
Le finestre valgono 
50 punti, i due bersa- 
gli extra valgono 200 
e 250 punti. 


10160-10168 


NEG 2 

7180. COLOR= 8: ULIN 25,30 AT 4: 
HLIN 1,3 AT 24: HLIN'5,8 AT 24: 
PLOT 2725: PLOT 2,25: PLOT 
1,26: PLOT 8,26: PLOT 1,27: 
PLOT 1,23: PLOT 6,23: PLOT 
0,22: PLOT 7,22 

7190" RETURN 

7999 END 

8000 REM -ISTRUZIONI 

8010 TEXT : HONE 

8020 PRINT * ISTRUZIONI: * 


o- 
re 


61000-61010 Stampa un numero, 

NM. seguito da zeri. 
62000-62999 Legge le posizioni 
delle finestre. Inoltre 
legge le subroutine 
in linguaggio mac- 
china per il suono. 
Tabelle dei dati perle 
posizioni delle fine- 
stre e le subroutine in 
linguaggio mac- 
china. 


63000-63999 


8030 POKE 34,3 

8040 HOME : PRINT *L’ OBIETTIVO 
E QUELLO DI": PRINT : PRINT 
"COLPIRE I BERSAGLI CIN 
ROSSO)": PRINT : PRINT "CHE 
APPAIONO IMPROWISI, IL 
QUADRATINO": PRINT : PRINT 
"BIANCO MOSTRA DOVE STAI 
SPARANDO. LO": PRINT 

8050 PRINT "CONTROLLI CON PADDLES 
0 JOYSTICK.": PRINT 

8060 PRINT "SPARI PREMENDO IL 


rizzi 2044 e 2045. Come li si può distin- 
guere da un vero punteggio massimo? 
Il modo di risolvere il problema è quello 
di usare una “chiave”. Se la chiave è 
presente il programma è stato girato in 
precedenza e c'è in memoria un pun- 
teggio massimo “vero”. Se la chiave è 
assente ci sono in memoria dati indesi- 


PULSANTE.": PRINT : PRINT 

8065 PRINT 

8075 PRINT "BATTI RETURN QUANDO 
SEI PRONTO...";: POKE - 
16368,0 

8080 GET K$: 1F KS < ) CHR$ 
(13) THEN 8080 

8090 RETURN 

8999 END 

9000 REM -TITOLO 

9010 TEXT : HOME : VTAB 4 

9020 A$ = "X% PRONTI, PUNTARE, 
FUOCO! ##": INVERSE : GOSUB 
9100: NORMAL 

9030 A$ = "DI ANDREW BERMAN": 
GOSUB 9100 

9040 A$ = 
zia *: GOSUB 9100 

9045 A$ = " (C) BY APPLICANDO AND 
MICRO-SPARC 1983 ": GOSUB 9100 

9050 FOR X = 1 TO 3500: NEXT: 

TURN 


RE 

9100 HTAB 20 - LEN (A$) /2+1: 
PRINT A$: PRINT : PRINT : PRINT 
: RETURN 

9999 END 

10000 REM -CONTROLLER. 

10005 GUN = 770:PIP = 800:AAARGH = 


832 
10006 GOSUB 42000: REM LEGGE LE 
VARIABILI 
10010 GOSUB 9000: REM TITOLO 
10020 VTAB 20: HTAB 1: PRINT 
"VUOI LE ISTRUZIONI? (SAN)" 
10030 GOSUB 40000: REA SON 
10040 IF AN$ = *S" THEN GOSUB 
8000 
10060 GOSUB 7000: REM DRAU AREA. 
10070 SC = 0:AN = 25:HS =  PEEK 
(2044) + PEEK (2045) + 256 
10080 HOME : PRINT "PUNTI: 
0000";: HTAB 20: PRINT "MUNIZ.: 
25": PRINT " RECORD DELLA 
GIORNATA: ";:NM = HS: GOSUB 
61000 
10090 -PRINT : INVERSE : HTAB 4: 
PRINT ** QUALUNQUE TASTO PER 
COMINCIARE é";: HTAB 1: NORMAL 
10100 POKE - 16368,0: WAIT - 
16384,128: POKE - 16368,0: 
CALL - 868: CALL - 1059 
10110 FORVI = | TO 25: REY 25 
Segue a pag 50 
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PROGRAMMATORI PER LA 
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derati e il punteggio massimo è azzera- 
to. Si scrive la chiave in memoria in 
2046 e 2047. Se i numeri non sono 123 
e rispettivamente 213 il programma non 
è stato girato, e vengono scritti in me- 
moria zeri in 2044 e 2045. Poi il pro- 
gramma scrive in memoria 123 e 213 
rispettivamente negli indirizzi 2046 e 


Segue da pag. 49 
ERSAGLI!! 

10120 XV= - 1Wv= - 1:W7= —- 
4: REM NIENTE VITTIME SULLO 
SCHERMO 

10130 UT = INT ( RND (1) # 30) + 
30: FOR X8 = 1 TOUT 

10140 GOSUB 4000: REM MIRA E 
SPARA 


10150 NEXT X8: REM LE TRE LINEE 
PRECEDENTI SONO SOLO UN PERIODO 
D' ATTESA PRIMA DELLA COMPARSA 
DELLE VITTINE 

10160 47 = INT ( RND (1) # 12) + 
1 


10165 ON 47 GOTO 10166,10187: 
GOTO 10168 

10166 VA = 250: GOTO 10170 

10167 VA = 200: GOTO 10170 

10168 VA = 50: GOTO 10120 

10170 GOSUB 5000: REM TROVA LA 
POSIZIONE IN BASE ALLA FIGURA E 
STAMPA UN ‘PIP’ 

10180 UT = 10: IF W7 {3 THEN UT = 
9: IF W7 < 1 THEN UT = 9: REY 
RESTA MENO TEMPO PER QUELLI CHE 
VALGONO DI PIU... 

10190 FOR X8= 1 TOUT 

10200 GOSUB 6000: REM COLPITO? 

10210 IF SH= | THEN X8 = UT: 
NEXT X8: GOTO 10250: REI -SI, 
COLPITO! 

10220 NEXT X8 

10230 GOSUB 4000: REM 
CANCELLALO. SPIACENTE 

10240 GOTO 10300 

10250 REM COLPITO! 

10250 CALL AAARGH 

10270 SC = SC + VA: REY AUMENTA 
IL PUNTEGGIO 

10280 NP = 1: GOSUB 4000:N° = 0: 
REM NP=NO PIP 

10290 GOSUB 3000: REM -AGGIORNA 
IL PUNTEGGIO 

10300 NEXT VI 

10305 COLOR= CO: PLOT X0,YO: REM 
CANCELLA IL PUNTINO 

10310 VTAB 24: INVERSE : HTAB 1: 
PRINT "ECCO FATTO. PER ORA HAI 
FINITO.";: NORMAL : HTAB | 

10315 GOSUB 2000: REM 
AGGIORNAMENTO FINALE 

10320 FOR X8 = 1 TO 3000: NEXT X3 


ld 
n] 


2047, per dire a se stesso che il gioco è 
stato girato e che è presente un “vero” 
punteggio massimo. Naturalmente se 
in seguito il programma sarà fatto girare 
vedrà il 123 e il 213 e non azzererà il 
punteggio massimo. Tutto ciò viene 
compiuto nella linea 35. 

Questo è tutto. Pronti. puntare, fuoco! 


10330 REM - SE FINISCONO LE 
MUNIZIONI (LINEE 6000-4999), IL 
PROGRAMMA SALTA QUI 

10335 GOSUB 2000: REM 
AGGIORNAMENTO FINALE E VERIFICA 
EVENTUALE NUOVO RECORD 

10340 COLOR= CO: PLOT XO,YO: VTAB 
24: CALL - 848 

10350 INVERSE : PRINT "GIOCHI 
ANCORA? (S/N)";: NORMAL : HTAB 


1 

10360 GOSUB 60000: IF AN$ = "N" 
THEN VTAB 24: HTAB 1: CALL - 
868: VTAB 23: END 

10370 GOTO 10070: REM ANCORA 

59999 STOP : REN 

60000 POKE - 14368,0 

60010 WAIT - 16384,128:AN$ = 
CAR$ (€ PEEK ( - 16384) - 129): 
POKE - 16368,0: IF AN$ = "S* 
OR ANS = "N" THEN RETURN 

50020 GOTO 40000 

61000 IF NY < 1000 THEN PRINT 
"0";: IF NM {100 THEN PRINT 
"0*;: IF NM (10 THEY PRINT 
10”: 


Li 

61010 PRINT N4;: RETURN 

62000 RESTORE 

62010 FORX = 3 TO 12: READ 
TACK) JACK): NEXT X 

62020 FOR X = 770 TO 784: RESD Y: 
POKE X,Y: NEXT X: REY SPARO 

62020 FOR X = 800 TO 319: READY: 
POKE X,Y: NEXT X: REY PIP 

62040 FOR X = 392 TO 348: READY: 
POKE X.Y: NEXT X: REY ARARGH 

52050 RETURN 

43000 REM -DATA 

63010 DATA 11, 10, 18, 11, 22, 
10, 17, 16, 22, 16, 12, 19, 20, 
22, 25, 25, 11, 26, 12, 3I 

63019 REY 770-784 SPARO 

63020 DATA 162, 1, 138, 32, 168, 
252, 141, 48, 192, 232, 224, 
32, 208, 244, 96 

63029 REM 900-813 PIP 

63030 DATA 162, 48, 141, 48, 192, 
169, 16, 32, 168, 252, 202, 
208, 245, 9 

63039 "REM 832-848 AAARGH 

63040 DATA 162, 1, 141, 48, 192, 
138, 105, 56, 32, 168, 252, 
232, 224, 21, 208, 242, 96 


ld 


vacANZE 


Organizzandosi per tempo, fra una corsa in catamarano 


e una partita di tennis, le ferie sono il momento migliore 
per approfondire quel certo programma o imparare i 
proprio tutti i segreti del computer. Purché... 


Sole 


uindici giorni? Venti? Un mese di 
Q vacanza? Perché non approfittarne 
per studiare a fondo, finalmente, quel 
certo programma che, acquistato, giace 
in attesa di quel momento di respiro che 
non arriva mai? Oppure, perché non 
sfruttare qualche oretta per provare a 
costruirsi da soli il pacchetto applicativo 
che, almeno nelle intenzioni, dovrebbe 
risolvere ogni problema? 

Sì, portarsi l'Apple al mare. O in mon- 
tagna. È una tentazione grossa, scagli il 
primo dischetto chi non ci ha pensato 
almeno una volta. Ma poi i bagagli son 
già troppi, c'è la gabbia del canarino, i 
bambini insistono per portare anche il 
canotto bucato l'anno scorso e ormai 


mare 


ed Apple Il 


inutilizzabile... E c'è lei, la grande nemi- 
ca: “Se te lo porti dietro anche in vacan- 
za chiedo il divorzio”, comincia a dichia- 
rare, “da quando è entrato in casa quel 
coso lì ti chiudi nel tuo studio e beato chi 
ti vede. Almeno al mare stai con noi!" 

Già, almeno al mare. E la sera? La 
noia della solita passeggiata in mezzo 
alla folla, o del filmaccio di terzultima 
categoria già visto tre volte alla TV? E al 
pomeriggio mentre tutti dormicchiano? 
E al mattino presto, vuoi mettere il pia- 
cere di un Catalog battuto mentre sorge 
il sole, lontano dai telefoni e dalle solite 
noie cittadine? 

Certo, resta sempre qualche proble- 
ma. Primo fra tutti quello familiare. | 
bambini in realtà non sono un ostacolo, 
perché con Apple, dai tre anni in su, se li 
avete sapientemente abituati a non ma- 
sticare i dischetti, hanno solo un rappor- 
to di amore e di attesa. Il dramma è, 
generalmente, lei, la moglie. Come fa- 
re? La regola è una sola: coinvolgerla. A 
tutti i costi. Gioca a bridge o vorrebbe 
imparare? Compratele il programma 
adatto e convincetela, con dolcezza, a 
provare. Se ha propensioni psicologi- 
che, mettete nel drive Elisa (come, non 
lo conoscete? è il programma grazie al 
quale si dialoga con l'elaboratore come 
si cialogherebbe con uno psicologo. 


con effetti di sconcertante realismo; pe- 
rò bisogna che vostra moglie conosca 
l'inglese...). Un amico ha ottenuto l'ef- 
fetto voluto con Animals, il programma 
che indovina a quale animale state pen- 
sando: sua moglie impazzisce per cani, 
gatti, merli indiani, ecc. 

Convinta e coinvolta la moglie (non 
troppo però, se si vuole continuare ad 
aver accesso alla tastiera senza dover 
acquistare un altro computer), si può 
cominciare a pianificare. Innanzitutto le 
spine triple e gli eventuali fili d'allunga- 
mento: di solito è l'ultima cosa alla quale 
si pensa, ma sono fondamentali. Poi 
conviene pensare a quante cose esat- 
tamente portarsi dietro. Per decidere se 
i drive servono proprio tutti e due e se 
della stampante non si può proprio fare 
a meno bisogna meditare sul tipo di la- 
voro che si intende fare al mare o in 
montagna con l'Apple. In genere, se si 
vuol programmare, un drive solo può 


[a 
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bastare, e d'altra parte quasi tutti i pro- 
grammi, anche quelli che normalmente 
prevedono l'uso di due drive, consento- 
no, con qualche piccola macchinosità in 
più, anche di usarne uno solo. Per la 
stampante la decisione può risultare più 
difficile: è proprio legata a quel che cia- 
scuno si ripromette di fare. Ma conside- 
rando che tornati a casa dopo le ferie si 
potrà stampare tutto quel che nel frat- 
tempo è stato appositamente stipato sul 
dischetto, ecco che anche di questo ac- 
cessorio si può. volendo. fare a meno. 

E il video? Qui le cose si complicano. 
Chi passa le ferie in una casa privata. 
dotata di televisore, potrebbe munirsi 
dell'interfaccia adatta e lasciare il moni- 
tor in città. Potrebbero sorgere però 
conflitti con gli altri membri della fami- 
glia che a una cert'ora agli istogrammi di 
papà preferiscono Dallas. 

In ogni caso il consiglio migliore è 
quello di sconnettere tutti i cavi e imbal- 
lare per bene tutto quei che si è deciso 
di portare. 

| drive, per esempio: basta un minuto 
per staccarli. dopo aver aperto il coper- 
chio del computer. e un minuto per ri 


E per trovarlo 
già acceso 
in riva al mare 


l'arco. judo e... Appie il. Chi o 
sce non sottoporre :!l suo computer 
alle fatiche di un viaggio massa- 
crante verso l'estate. può trovario 
fresco 2 riposato sul posto. insialla- 
to in lecali ombreggiati. e pronto der 
l'uso ‘ascuno. se crede. si porti i 
suci dischetti. delicati si. ma ciù fa- 
cili da trasportare. 

A offrire vacanze condite con fet- 
tine di mela e ii villaggio Valtur di 
Nicotera. in Calabria. presso Capo 
Vaticano. A Nicotera i meno esperti 
potranno approfittare di un vero e 
proprio corso di iniziazione all'inior- 
matica in generale a all'Appie il in 
particolare: i già esperti potranno 
invece interrompere la routine 
spiaggia-abbronzatura-aperiti- 
vO-2CC.. per passare a routine 2 su- 
broutine di Basic. 

L'iniziativa. fra le più intelligenti 
intraprese dai villaggi che offrono 
vacanze tutto compreso. dimostra 
l'importanza e la diffusione raggiun- 
ta dal fenomeno computer. sulla 


montarli. Ed è più sicuro. 

Chi invece di un periodo di vacanza 
mediolungo prevede una serie di perio- 
di più brevi, e cioè con spostamenti con- 
tinui del computer. può prendere in esa- 
me un'altra soluzione: a Torino la CGT 
settore informatica (Corso Vittorio Ema- 
nuele Il. 40 - tel. 011/543671) vende un 
kit chiamato Dream che trasforma l'Ap- 
pie Il in una specie di bauletto da viag- 
gio. Il kit (costa 690 mila lire più IVA) 
comprende anche un monitor da 6 polli- 
ci e gli attrezzi per lo smontaggio e il 
rimontaggio nella nuova versione, che 
non compromette la funzionalità del 
computer (ma l'estetica si). 

Comunque, che decidiate di imballar- 
lo. di metterlo nel baule o di poggiario 
semplicemente sul sedile posteriore 
della vostra auto (che è la cosa più faci- 
le, ma anche la più rischiosa), non di- 
menticate accessori essenziali come i 
dischetti. il nastro nuovo per la stam- 
pante (se avete deciso di portare in vil- 
leggiatura anche lei). i manuali, eccete- 
ra. Dovunque andiate sarà comunque 
difficilissimo trovarne. 

Infine. i fattori ambientali. Sole mare e 


sabbia fanno bene a voi, ma ad Apple Il 
no. Soprattutto se si infiltrano fra tasto e 
tasto. Idem per le bibite ghiacciate o la 
pioggia improvvisa che sorprende il 
computer sul tavolo in giardino. 

Poi, l'energia elettrica. Nei centri di 
vacanze ha la brutta abitudine di venire 
a mancare molto più spesso di quanto 
non accada in città: salvate ancor più 
frequentemente sul dischetto quel che 
state facendo, o munitevi di un'apposita 
batteria intampone che vi assicuri ener- 
gia per evitare che in questi casi si per- 
da quel che avete in memoria. 

Sempre a proposito di energia. ricor- 
date che molti alberghi potrebbero farvi 
difficoltà: la luce la pagano loro e con- 
vincere il personale che non è vero che 
un computer consuma chissà cosa può 
essere difficile. In alcuni casi può esser 
meglio avvertire prima. 

Scoraggiati? No! Fosse solo per que- 
sto... In realtà quello dal computer può 
essere l'hobby più divertente e intelli- 
gente mai inventato. Privarsene proprio 
quando si ha finalmente un po' di tempo 
ibero non avrebbe senso. Coraggio. ai- 
ora: basta pensarci per tempo. 


scia anche di quanto è avvenuto ne- 
gli Stati Uniti. dove è ormai diffusis- 
sima. soprattutto per iragazzi. perfi- 
no ia formula campeggio più com- 
puter. 

Il villaggio di Nicotera, che dispo- 
ne anche di un giardino d'infanzia 
assistito da un pediatra, e aperto 
dali 4 giugno al 24 settembre, e tra- 
scorrervi una settimana costa da 
280 a 560 mila lire, secondo che il 
periodo prescelto sia in alta o in 
bassa stagione. | bambini fino a sei 


anni pagano meno. circa la metà. 

Per il viaggio la Valtur organizza 
voli con partenza da Milano e da 
Roma. Ma Nicotera è ben servita 
anche dalle ferrovie. 

Comunque è bene orenotare per 
tempo. scrivendo a Valtur Vacanze 
S.p.a., Via Milano 42. Roma (telefo- 
no 06/4706238-239). oppure rivol- 
gendosi direttamente agli uffici di 
Milano (Piazza Meda 3. telefono 
791733) o di Torino (Via Alfieri 22. 
telefono 516016). 


SUSSS bit computers 


la più estesa e fornita 
rete di vendita Apple 
ne! lazio 


PROGRAMMI, PERIFERICHE, CORSI, MERCATO USATO 
FACILITAZIONI E CREDITO PERSONALE 


Sede centrale: Roma - Via Flavio Domiziano, 10 (Eur) - tel.06/5126700-5138023 
Computer shop: Roma - Via F. Satolli, 55/57/59 (p.zza pio XI) - tel. 06/6386096-6386146 


Viterbo: Via Giacomo Matteotti, 73 - tel. 0761/38669 

Frosinone: V.le America Latina, 14 — tel. 0775/855263 

Latina: C.so della Repubblica, 200 - tel. 0773/495998 sro ar 
Cisterna di Latina: Via Aversa, 11 — tel. 06/9696973 i 
Gaeta: Via San Nilo, 4 — tel. 0771/460761 


DORMITE SONNI TRANQUILLI!!! 


NOCOFPY 30 


Per APPLE Il - APPLE Il PLUS 48 K 


LA RISPOSTA ITALIANA AL PIU’ FAMOSO 
DEI BIT-COPIER AMERICANI 


Il nostro programma vi consentirà di vendere il 
vostro software per APPLE Il senza che ne possano 
venir fatte copie abusive neanche usando i più 


famosi e pubblicizzati ‘‘copiatutto’’ in circolazione. 
Vengono inoltre inibiti CATALOG, LIST, SAVE 
sia su registratore che su disco e l'uscita in linguaggio 
macchina. 


Realizzato da: distribuito inoltre da: 


CLUB MELA-MANIA SISTEDA computers 
c/o Dr. Occhiodoro Gianni Associato Multi Deit 
Via Crivelli, 9 Via Velino, 5 
60100 ANCONA TORRETTE 
Tel. (071) 898050/34606 60100 ANCONA 
Tel. (071) 880774/880775 


Prezzo L. 300.000 + IVA comprensivo di programma per 
back-up dischi dati — spedizione contrassegno ovunque — 


3): QE0 N03 1993 = COPURISTI 
SPO IOSNDO ND INC. 

29 284 SIONI 

20 GET 37 JR_a08 


scAgaTO* 
OCMENICA* 
“LENEDI * 
"MARTEDI" 
MMERCOLE DI' 
*GIOVEDI* 
"VENERDI * 


1 UTAB 15): PRINT ® 


I rràa Ci 10: 


AB (12): PRINT * 
RNO DELL’ NO" 


Bonar 


arte morì di sa 


aceio: 


era il 125° 


gicrno dei 1324. 


Ma seconco il calendario giuliano 


PRINT»: 


degli astronomi era il giorno numero 


Ì, son nato: 
giovedì 


Ln 


a # 
) 
ìl 
MAP: PRINT = 
SL NUMERO SCELTI —-' 
si 
N > 3070 


ONE 
PRINT * 


DIDANO DELLA SETTIMAN*® 


1970 


VTAB 
DATA DEL 
TAB (5): PRINT "DETERMINARE 


15): PRINT "PER IUALI 
CALENDARIO UOI* 


DIORNO? 2ATTI IM FORMA* 


TAB (7): PRINT '96/0MM/AFFA, 
SNO DEVE SSSERE” 

VTAB (3): PRINT ‘POSTERIORE 
1502," 

INPUT 33 

305U8 i 

ag IND 7) 
ACME 

STAB (9): RIM 13: = 


2.386.250,5 


1 3 one zicrno cella settimana mori Na- 
ne? Quanti giorni seno trascorsi 
nec ‘uomo scese cer ‘a crima 
ila una, il 24 iugiic ‘369? Quale 
ei calencario giuliano corn. 
3 al 21 agesto 1983? Che 
zell'anro ara ;i 23 maggio 1981? 
mere Dasta un calencario: avete 
3 n calencario cei 1321? So. 
ce iar vomeco sacera sa si è nati 
ì > ci venercì. T zuanti giorni 
ccce un cero avvenimen- 
> Jarificsio cn altro... 


.] csaiandario 


i mimo ZaENRcenmoe 3 


ava 2rcta- 
e ancava 


1 13000 


MUMERO DEI GIORNI F3A 
' PRIN Ul 
1 FRA LE DATI” 


2040 LIO 12): PRINT VIAL FA 
3916 CATA? ATTI IN FORA" 
295) "TAB (9): PRINT. "sot 

290 STAB (9): PRINT "L’ ANNO 
PE EE POSTERIORE AL 1582" 


"LA 


da una luna piena alla successiva. Ciò 
non era molto soddisfacente in quanto 
l'intervallo è di 29,5 giorni, e nel giro di 
pochi anni i mesi non corrispondevano 
alla stagione effettiva. Poi, nel 46 a.C., 
Giulio Cesare mise a punto uno stru- 
mento più affidabile, ma anche il calen- 
dario giuliano era men che preciso. 

Il problema dell'invenzione di un ca- 
lendario è che un anno solare non è 
esattamente di 365 giorni; è più vicino a 
365,26 giorni. Questa frazione residua 
di giorno è il motivo per cui ogni quattro 
anni c'è un anno bisestile. Ma pur com- 
prendendo l’anno bisestile il calendario 
giuliano è impreciso, e con il susseguir- 
si degli anni gli errori si accumulavano. 

Infine, nel 1582, Papa Gregorio XIII 
stabilì di stralciare dieci giorni per ripor- 
tare il calendario al passo con le sta- 
gioni. 

Oggi il calendario gregoriano è il più 
usato. Tutti gli anni esattamente divisi- 
bili per quattro sono bisestili, tranne l'ul- 
timo anno del secolo quando è esatta- 
mente divisibile per 400. Fra 3000 anni 
ilcalendario gregoriano sarà in errore di 
meno di un giorno. 

A causa della complessità del calen- 
dario civile venne inventato, soprattutto 
per le esigenze degli astronomi, il ca- 
lendario del giorno giuliano, che non ha 
nulla a che fare con il calendario di Giu- 
lio Cesare Augusto, e che venne chia- 
mato così dall'ideatore, Joseph Justus 
Scaliger, in omaggio al padre Giulio Ce- 
sare Scaliger o Scaligero, letterato, me- 


SECONDA DATA?" 

2110 VTAB (13): PRINT 
* GG/MM/AARA" 

2120 INPUT 24 

2130 GOSUB 5000 

2140 N= ABS (X - X1) 

2150 HOME 

2160 VTAB (8): PRINT "IL NUMERO 
DI GIORNI FRA IL ";21$ 

2170 VTAB CI0): PRINT "E IL 
*;24;" E "N 

2180 VTAB (21): PRINT *’RETURN” 
PER CONTINUARE, ‘F’ PER FINIRE" 

2190 INPUT 2$ w 

2200 IF 2$ = "F" THEN 10000 

2250 GOTO 100 

3000 REM NUMERO DEL GIORNO 
NELL'ANNO 

3010 HOME 

3020 PRINT : PRINT * 
DEL GIORNO NELL’ ANNO" 

3030 VTAB (3): PRINT * 


3040 VTAB (5): PRINT "QUALE DATA? 


NUMERO 


dico e filosofo italiano emigrato in Fran- 
cia (dove, appunto ad Agen, nacque nel 
1540 Joseph). Esso conta semplice- 
mente il numero dei giorni trascorsi dal 
1 gennaio 4713 a.C. Poiché il giorno 
giuliano comincia a mezzogiorno si ot- 
terranno valori frazionari. Così la data 
giuliana corrispondente al 12 agosto 
1981 è 2.444.828,5. 


Il programma 


Per determinare il numero dei giorni 
fra due date si assegna dapprima un 
valore a ciascuna data, e poi si trova la 
differenza dei valori. | valori sono calco- 
lati usando le equazioni nelle linee 6020 
e 6040. Y è l'anno, M è il mese e D il 
giorno. Il giorno dell'anno viene deter- 


C(BATTI IN FORMA GG/MM/AAAA)" 
3050 VTAB (6): PRINT "L’ ANNO 
DEVE ESSERE POSTERIORE AL 1582" 
3060 INPUT 24 
3070 GOSUB 5000 
3080 XI = X:M1 = M:61 = 6 


3090 M = 1:6=0 
3100 GOSUB 6000 
3HION=XI -X 
3120 HOME 


3130 VTAB (8): PRINT 2$;" E’ IL 
GIORNO NUMERO *;N 

3140 VTAB (21): PRINT *"‘RETURN’ 
PER CONTINUARE, ‘F’ PER FINIRE" 

3150 INPUT 2$ 

IF 2$ = "F" THEN 10000 

GOTO 100 

REM CALENDARIO GIULIANO 

HOME 


PRINT : PRINT * 
GIULIANA" 
4030 VTAB (3): PRINT * 


4040 VTAB (5): PRINT “BATTI LA 


DATA 


minato usando l'equazione nella linea 
1080. Se | = 0 il giorno è sabato; sel = 
1 è domenica e così via. 

La subroutine che incomincia sulla 
linea 5000 permette di introdurre la data 
sotto la forma GG/MM/AAAA, cioè gior- 
no, mese e anno, come si usa in Europa 
(mentre negli U.S.A. la forma tipica è 
MM/GG/AAAA). 


DATA NELLA FORMA GG/MM/AARA" 
4050 VTAB (6): PRINT * L’ ANNO 
DEVE ESSERE POSTERIORE AL 1582" 


4060 INPUT 24 

4070 GOSUB 5000 

4080 XI = X:M1 = M:61 = G:A1 = A 

4090 M = 1:6 = 1:A = 1583 

4100 GOSUB 4000 

4110 J= 2299238.5 + (XI - X) 

4120 HOME 

4130. VTAB (8): PRINT 24;" E’ IL 
GIORNO GIULIANO *;J 

4140 VTAB (21): PRINT *’RETURN’ 
PER CONTINUARE, ‘F’ PER FINIRE" 

4150 INPUT 24 

4160 IF 2$ = "F* THEN 10000 

4170 GOTO 100 

5000 REM SUBROUTINE DATA 

5010 FORI=1| TO LEN 24) 

5020 IF MID$ (2$,1,1) { ) "/" 


THEN NEXT I 
5030 REMO I E” LA POSIZIONE DEL 
PRIMO ‘/” 
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gfjoppic computer 


DISTRIBUTORE 
APPLE 

CON CENTRO 
ASSISTENZA 
DI I° LIVELLO 


Compute: Shop 
Vla Y. E. Oriando, 184/168 
Tei. (095) 44 16 20 
95127 CATANIA 


BZZR SANI PACLCE T/Be TEL 0T5-29875/Z4185 


COLLEGA LA TUA APPLE 
AD UNA MACCHINA 
DA SCRIVERE 


Interfacca: 

Olivetti ET 121/201/221 
Adler SE 1005/1010/1030 
Adler SE 3008 


Disponibili in Qut Cantronics 


PROGETTATE COSTRUITE ASSISTITE 
COMMERCIALIZZATE 


DA UN'UNICA 
AZIENDA LEADER 
DEL SETTORE 


it _____-+ 


oppure IN/OUT RS 232 


vena CTS 
peseer=e === 
i Dal 1582 a oltre il 2000... | non Mete 
| 
| 


il Ecco un esempio di quel che si vede sullo schermo quando si avvia il 
calendario perpetuo. Il menù offre cinque opzioni: se si sceglie la prima ci si 
| troverà nella sezione “giorno della settimana”, con la seconda si va nella 
i parte “giorni fra due date”, e così via. Attenzione a digitare la cifra dell'anno 
per intero: 1968, per esempio, e non 68, altrimenti il programma deduce 
che l’anno è anteriore al 1582, e rimbrotta gentilmente per l'errore. Qui non ‘| 
si poteva prevedere una routine che inserisse automaticamente le prime 
due cifre dell'anno, altrimenti si sarebbe limitata a questo solo secolo la 
validità del calendario, che invece spazia liberamente dal 1582 in avanti, 
fino a oltre il 2000. 


MENU” GIORNI FRA LE DATE 
1--GIORNO DELLA SETTIMANA 
2--GIORNI FRA DUE DATE 


QUAL E” LA PRINA DATA? RATTI IN FORMA: 


3--GIORNO DELL’ ANNO 66A4Y/ 

4--GIORNO GIULIANO L'ANNO DEVE ESSERE POSTERIORE AL 1582 
S--FINE 23/12/1962 
-- BATTI IL NUMERO SCELTO -- QUAL E’ LA SECONDA DATA? 


IL COMPUTER SHOP DOVE... 
PERSONAL È UTILE 
PERSONAL È FACILE 
PERSONAL È BELLO! 

Via B. Croce, 11/13 

Brescia dietro (C.C...A.A.) 
Tel. (030) 42100 

Aperto anche di sabato 


N GG/MN/AAAA 

24/5/1983 

IL NUMERO DI GIORNI FRA IL 13/12/1962 
E IL 4/5/1983 E' 2447 


GIORNO DELLA SETTIMANA 

PER QUALE DATA DEL CALENDARIO VUOI 
DETERMINARE IL GIORNO? BATTI IN FORMA ner 
GG/MM/AAAA. L’ ANNO DEVE ESSERE DATA GIULIANA 
POSTERIORE AL 1582, 
221/55/5/1821 
5/5/1821 = SABATO 


BATTI LA DATA NELLA FORMA GG/M/ARAA 
L'ANNO DEVE ESSERE POSTERIORE AL 1582 
24/5/1983 

457 IL SI A 

MUNERO DEL GIORNO NELL’ ANNO 4/5/1983 E” IL GIORNO GIULIANO 2445458,5 


QUALE DATA? (RATTI IN FORMA GG/MN/ARRRA) 
L' ANNO DEVE ESSERE POSTERIORE AL 1582 
24/5/1988 

4/5/1983 E' IL GIORNO NUMERO 124 
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5160 GOTO 5120 

5170 IFA) = 1533 THEN 6000 

5180 VTAB (15): PRINT "L‘ ANNO 
DEVE ESSERE POSTERIORE AL 1582" 


5040 FORN=1 4! TO LEN (2$) 
5050 IF MID$ (2$,N,1) { ) "/* 


THEN NEXT N 5190 VTAB (16): PRINT "TU KAI SONO DISPONIBIL! 
Sai De LA POSIZIONE DEL BATTUTO *;A PRESSO DI NOI 


5070 6G$ = LEFT$ (24,1 - 1):G= 
VAL (6$) 


5080 M$ = MID$ (28,14 1,N-1- 
1):M= VAL (18) 


5090 A$ = RIGHT$ (2$,4):A = VAL 
(A$) 

5100 IFM) = 1 ANDM = 12 
THEN 5140 


5110 VTAB (15): PRINT "IL MESE 
* ;M;" NON ESISTE," 

5120" VTAB (17): PRINT "BATTI 
“RETURN” E RICOMINCIA" 

95130 INPUT R$: GOTO 100 

5140 IFG) =1ANDGK =31 
THEN 5170 

5150 VTAB (15): PRINT "UN MESE 
NON PUO” AVERE ":G:" GIORNI" 


5200 GOTO 5120 

6000 REM = DETERMINAZIONE DEL 
VALORE 

6010 IFM) 2 THEN GOTO 6040 

6020 X = 345 #A+6G+31# (M- 
1) # INTCGA-1)/4)- INT 


SG, # INT SCA - 1) / 100) + 

6030 RETURN 

6040 X = 3465 # A + 6431 * (M- 
1) - INT (4 &MN+ 2,3) + INT 
CA / 4) - INT (0.75 ( INT (A 
/ 100) + 1)) 

6050 RETURN 


10000 HOME : UTAB (24): HTAB 
(36): PRINT "FINE": END 


TUTTI | PRODOTTI 
SOFTWARE APPLE 


NON DIMENTICATE 
L'AVVENTURA NEL CASTELLO! 


sinduzioNe Der litalia 


IRET" 
informatica 


CA 


Disegnare sullo schermo? Non è 
applicazioni serissime sfruttano la grafica di Apple. E visto 


solo un gioco. Decine di 


che Applicando regala ai suci abbonati un programma che... 


Figurati un po”! 


isegnara, realizzare cartoni 

animati a cregrammare giochi 
ancne migliori di quelli cme mangia- 
no monete nei bar? Non è aîfatto 
cetto che ie applicazioni grafiche 
serrano scio ser giocare: immagi- 
niamo per ssempio che un disegna- 
cre alettronico. che svolga il suo 
avero sestanzialmente Jisponen- 


10 POKE 150,1: POKE [04,54: POKE 
16394,9 
20 3$ = CARS (4): REM CTRL-) 
200 HOME : INVERSE : PRINT * 
È SHAPES 


40° NORMAL : PRINT | PRINT; 
*INUOVA TAVOLA* 

30 PRINT: PRINT * 2.FINE 

25 PRINT : PRINT : INVERSE 
*(C)1993 COPYRIGHT APPLICAND 
9 AND INCIDER": NORMAL 

24 VTAB (19): HTAB (10): INPUT * 
QUALE? *;983 

2? IF A$ = “I* THEN 100 


PRINT 


ND 
190 PRINT 938:*RUNFISURE* 


SNERR SOTO 53990 
3070 114 : 2B4 (C) 1993 
APPL ICANDO 3 i INCIDER 

1: RETURN 


2 3H= 

ì IF INTE = BE) = PBGANDFA< 
> 1 THEN 2OP: GOT 19999 

4 RETURN 

3 IF KEY = 172 THEN DLDY = ILIY - 
1:9X=M-1 

7 IF XEY = 172 AND 49 =! HEI 


ILIY = ILIY +2 

30 IF KEY = 213 NO X9 = 3 THEN 
IL = ILIY - 2 

? IF KEY = 206 THEN OLDY = ILIY - 
1:0X =MXi1 

ii iF KEY = 207 li OLDY = OLIY 
Li 112X =MVi 

3 IFXEY= 293 Dei dLIY = dLIY 
+ 130X= MX -3 

3 IFKEY = 207 AND KP = 


3 THEN 


1 PRINT 


do in modo diverso ogni volta sim- 
boli che sono sostanzialmente 
uguali salvo che per posizione, di- 
mensioni e collegamenti. Sarebbe 
davvero impossibile semplificargii 
la vita immagazzinando i vari sim- 
Soli in memoria e lasciandogii sclo il 
compito di richiamarli. ingrancirli o 
rimricciclirli. ructarli il tanto che ca- 


ILDY = IL - 2 

16 IF KEY = 206 se X9 = 7 THEY 
ILDY = OLDY + 

20 RETURN 

30 TX = K9:K9 = X9: IF X8= 
AND X9 = 215 THEY sin 

3 RETURN 

114° CALL - 936: INPUT “NUMERO DI 
FIGURE NELLA 
TAVOLA?2C1-125) :* ;NU 

115 IFNU) 126 ORNU {1 THEN 


, 

100 DIN CCD:CC1) = DiCt2) = 
0:03) = 0 

145 ADR = 2940 

(5) LOC = 2960:X = 139:Y = 79 

151 POKE LOC,S: POKE LIC + 2 
PORE LOC + 3,3:L0C = LOC è 

= LOC 

152. PONE LOC + 1,0 

153 PFLAG = Dill = FRE (0): CALL 
“SORIS:AF = Di IF ZA = i THEN 
LOC = LOC 4 | 

154 3E = ITE:FA=0 

159 IF AA= | THEN AA = QidF =; 

150 HGR + HCOLOR= 3: R07= 3: 
SCALS= 1:N = 9:C(0) = 3: GOSUB 


120 VTAB (22): PRINT * BYTES 
NE= XI Mei PLOT:* 

175 FLASH : VTAB 22: HTAB 26: 
PRINT "NO *: NORMAL 

130 UTAB 23: PRINT *DISPON: Ssi 


4=J 
190. VTAB 24: PRINT * 5829 SE=, 
SII RLUSATI: * 


133 
gere 
3315 


sta. a incicare con quali altri vanno 
collegati e come. Il tutto magari gra- 
zie a un oregramma che renda faci- 
iissime queste operazioni? 

E scio un esempio. In realtà ia 
grafica ci Apple può avere molte più 
acclicazioni oratiche, utili, di quanto 
nen si immegini. Può valere la pena 
allora ci imeraticnirsene. scprattut- 


195 VTAB mi TAB 25: PRINT * 
FIGURA 

199 =. m: NTAB 37: PRINT BYTE 
- 34 

290 SOSUB 50: POKE - 16368,0: IF 
SG ) 0 THEN 21000 

201° = 9: UTAB 23: PRINT * 
*: VTAB 23: PRINT 3192 - LOC: 
SOSUB 3:K9 = KK 

203 XK = QE:LE = 9 

204 ‘JTAB 22: ATAB 32: PRINT NB + 


1 
205 KEY = PESX ( - 16384); 
{ 129 THEN 205 
206 IF SH =! THEN 200 
207 5070 211 
208 GOSUB 3 
211 SH = di IF KEY = 197 THEI 


212 W= diff = :îT =): :F 


IF KEY 


KEY = 


219 IF KEY = 133 THEN 20000 

220 IF XEY = 200 THEN KEY = KEY — 

221 IF KEY = 134 THEN 420 

222 IF XK = 215 THEN SOSUB 2400: 
IF 9 ) D AND KI < 9 THEN 
SOSUB 2330 

229 IF XK = 215 AND K9 = 215 THEN 
GOSUB 2730 

225. IF KEY = 1472 THE 22=1: 

GOTO 420 


231 IF KEY = 207 FHEN KEY = di 


SoTO 200 
232 IF KEY = 203 OR KEY = 204 
THEN XEY = 2: S0T0 360 


223 IF KEY 
GOTO 330 
224 IF KEY = 205 THEN KEY = di 


172 THEN KEY = Gi 


to se anche questa può diventare 
un'operazione di poca fatica. E que- 
sto è il caso: Applicando infatti re- 
gala, su dischetto, a tutti i suoi ab- 
bonati, il programma di cui in queste 
pagine viene pubblicato il listato. 
Dunque non occorre fare neppure 
la fatica di trascriverlo riga per riga 
dalla rivista, e si sarà in grado di 
realizzare sullo schermo i disegni 
che si desiderano, conservandoli in 
memoria, per poterli poi richiamare 
dall'interno di eventuali programmi 
applicativi. 

Quest'articolo, che è il primo di 
una serie, si limita a spiegare come 
utilizzare il programma. 

In pratica si tratta di un software 
che permette di disegnare sullo 
schermo nel modo più pratico pos- 


GOTO 330 

235 IF KEY = 206 THEN KEY = 5: 
GOTO 330 

236 IF KEY = 202 THEN KEY = 6: 
GOTO 390 

237 IF KEY = 213 THEN KEY = 7: 
GOTO 300 

238 IF KEY = 201 THEN KEY = 8: 
GOTO 300 

245 IF KEY < ) 32 THEN 200 

250 PFLAG = NOT PFLAG 

260 VTAB 21: HTAB 36: IF PFLAG = 
0 THEN 280 

270 PRINT "SI ": GOTO 200 

280 FLASH : PRINT "NO *: NORMAL 

290 GOTO 200 

300 IF OLDY = 0 THEN 200 

305 Y = OLDY - | 

310 CCN) = 0: IF PFLAG = 1 THEN 
CN) = 4 

315 GOSUB 550 

320 IF KEY = 7 THEN 390 

322 IF KEY = 1 THEN 360 

324 GOTO 200 

330 IF OLDY = 159 THEN 200 

335 Y = OLDY + | 

340 CCN) = 2: IF PFLAG = 1 THEN 
CIN) = 6 

345 GOSUB 550 

350 IF KEY = 5 THEN 390 

352 IF KEY = 3 THEN 360 

354 GOTO 200 

360 IF DX = 279 THEN 200 

365 X= DX +1 

370 CN) = 1: IF PFLAG = 1 AND KEY 
= 2 THEN C(N) = 5 

380 GOSUB 550: GOTO 200 

390 IF DX = 0 THEN 200 

399 X=DX-1 


400 CN) = 3: IF PFLAG = 1 AND KEY 
= 6 THEN CN) = 7 

410. GOSUB 550: GOTO 200 

420 CALL - 936 

430 B = CC1) + C(2) #8 + C(3) & 
64: POKE LOC,B 

i IF B= 0 AND BYTE ) 0 THEN” 


60 

450 LOC = LOC + 1: POKE LOC,0:BYTE 
= BYTE 81 

450 GOTO 480 

472. POKE SOI + 2,2 * NU) + 2: 
POKE SOI + 1,0: POKE SOI + 3,0: 
POKE SOI,NU:ADR = 501 

473 VTAB 21: FLASH : PRINT * 
SOSTITUISCI ORA IL DISCHETTO 
CON UN ALTRO 
INIZIALIZZATO 
(QUALUNQUE TASTO PER 
CONTINUARE) * 

474 POKE - 16368,0: GOSUB 23010: 
NORMAL :D$ = CHR$ (4): HONE 

475 VTAB 23: INPUT "NONE DELLA 
TAVOLA DI FIGURE: ";N$ 

474 PRINT 
D$ ;"BSAVE" ;N$;",A";ADR;",L";(LOC 
+ 2) - ADR 

477 HOME : TIT 

479 PRINT "TAVOLA DI FIGURE 
SALVATA": GOTO 5000 

480 IF NU = 1 THEN SOI = 2360: 
POKE S01,NU 

481 IFNU=1 THEN 472 

482 IF NU = 2 AND NB = 0 THEN SOI 
= 2358:ADR = 2358: GOSUB 1000 

483 BT = BYTE:Li = LOC 

485 NB = NB + 1: IF NU) 2 AND AF 
= 0 THEN GOSUB 2000 

486 IF NU ) 2 THEN LC = LOC 


487 IF NU=NB OR 22 = 1 THEN 472 

488 Y = 79:X = 139 

489 CCI) = 0:C(2) = 0:C(3) = 0:2X 
= 1: GOTO 1539 

550 TC = CIN):TN=N: IF CIN) }) 3 
THEN 580 

560 HCOLOR= 0: HPLOT DX,OLDY 

580 HCOLOR= 3: HPLOT X,Y 

600 IFN) 2 THEN GOSUB 420 

602 IF C(2) = 0 THEN IFN=2 
AND CCI) ) 0 THEN GOSUB 14000 

605 IF BYTE ) 0 THEN OY = OLDY 

606 IF BYTE ) 0 THEN OX = DX 

610 TT = TT + 1:N=N4+ 1:DX = 
X:0LDY = Y: RETURN 

620 Pi C(3) < 4 AND CC3) ) 0 THEN 
640 

630 SA = C(3):C(3) = 0 

635 W= 1 

640 B= CCI) + C(2) #84 C(3) # 
64 

645 Ci = CCi):C2 = C(2):C3 = C(3) 

650 IFBX )0 THEN 670 

660 B = 128: POKE LOC,B:L0C = LOC 
+ 1:BYTE = BYTE + 1:XX(BYTE - 
BE) = X:YY(BYTE - BE) = Y 

670 POKE LOC,B:LOC = LOC + 
1:XXCBYTE - BE) = X:YY(BYTE - 
BE) = Y 

680 BYTE = BYTE + 1: VTAB 23: HTAB 
37: PRINT" ": VTAB 23: HTAB 
37: PRINT BYTE + 4 - BE 

690 IF C(3) = 0 THEN 710 

200 CCI) = 0:C(2) = 0:C(3) = 0:SA 
= 0:N = 0: RETURN 

210 CCI) = SA:C(2) = 0:C(3) = 0:5A 
= 0:N = 1: RETURN 

720 END | 
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sibile, semplicemente spostanco 
un puntino in verticale, in orizzonta- 
le o in diagonale. !l puntino puo as- 
sere spento, quando non si voglic- 
no lasciar tracce suilo schermo. a 
riacceso, quanco si vuci ricomincia- 
re a îracciara. Poi, una volta termi. 
nato, il disegno viene memorizzato 
come carte di una tavola ci cisegri 
{le famose share tabie). 3 SUO 3s- 
sera richiamato a utilizzato come 
spiegneremo sul prossimo numero 
di Applicanco. 

Se non l'avete già fatto. allcra. 
aboonatevi: care tempo alle soste: 
a, Una volta ricevutcio. infilate ‘i ci- 

schetto omaggio (che contiene an- 
cene i oregrammi di statistica di caci- 
na 22 a il gicco Scanner di sagina 


35) nel crive 


3 5 AND CEY = 292 
AND KEY = 290 TH 


399 

3A S0TO 2000 

3ES CN «7 5070 
300,365,379,375,380,395,399,395, 


360 IF KEY > 201 OR KEY < 20€ 
THEN A = + 2: S0T0 399 

385 IF XEY = 201 OR KEY = 20€ 
THEN = - 11: 3070 399 

379_ IF KEY ) 201 OR QEY < 295 
THEN X = 4 - 2: 5070 399 

375 IF KEY ) 201 AND ZEY ( 295 
THEN Y = Y = 1: 9070 399 

90 IF KEY > 201 OR KEY { 295 
THEM X = X + 2: GOTO 399 

345 IF HEY = 201 OR dEY = 295 
THEN X = X + 1: GOTO 399 

399 IF KEY > 201 OR KEY (295 
THEN X = X - 2: SOTO 399 

399 IF KEY > sui SND KEY { 205 
HEI Y=% 
i I: sato. Ni 

KEY ) 200 AND KEY | 195 


1. Chiedere ii ceIsIcSo. - 


e vi accorgerete che citre ai tre pro- 
grammi indicati ne è 2 presente an- 
che uno cniamato Menù. £ da que- 
st'ultimo cne occorre vassare (sem- 
plicemente dattendo RUN MENU) 
ger attivara il nostro disegnatcre di 


! #gura !..tasti za scartare cer muovere 


| sursera. 


ecs 


domo Ni 


PNEY = 295 35 
YVaa K=7 


13 507021! 

SOTO 298 

1300 POKE SOI,NU: 
PORE 501 + 3,d: 


74 256 THEN POKE 
sE: QETURN 
NT {BYTE 3 7) / 200): 


309° 
BORE 301 + 2,5: 
POKE 301 + Î.): 


301 + dat ago 

2000 SOI = 2264 - NU #2 - 2 
POKE 301 ,NU 

2005 IF NB = | THEY POLE 
2,INU # 2) #2 

2010 ADR = 301 


3501 è 


2011 IF NB= {SNO NU: > 2 THEN 
RETURN 

2912 WO = 0 #2 

2019. IF cdi S01) + 1) ) S5S 


2920 PORE 301 + #0, LE - S01) #1 
2022 POKE SOI + 40 +1, 

2025 RETURN 

1050 36 = INT (CLE - 301) » i) 


256) 
2040 DOKE SOI - 4Q » 1,36 


figure. Perche non dall'altro, pure 
presente sul dischetto? Perche, per 
funzicnare. ii nostro programma ri- 

chiede che orima si faccia un 

2OKE!03.: POKE!04.84:POKE16384,0 
Questo 3 asattamente ciò che fa 
oregramma Menù, dando poi au- 
n il un per la reaiiz- 
zazicne ci figure. !l îutto è stato co- 
struite setto icrma di menu. comun- 
gue. ancne ser un altro motivo: ab- 
siamo sariaio di ountate, ed è no- 
sira erma intenzione, nelle prossi- 
me. ci acgiurgere cpzioni al menu. 
atfrence sregrammi da agganciare, 
in mece cre ii iutto formi un pac- 
cnettc unico. Cosa ne dite? Sarà 
‘eci lissimo arcne seri meno esper- 
no 2esse casso 'utto quel 


2050 AH = {ELE — 301} #1) - (INT 
{{KLT = 301) + 1) / 256) + 256) 

2009 POKE SOI + 40, dl 

2070 RETURN 

2100 S01 = 1264 - NU #2) - 2: 


POKE 301.NU 
2101 IF SF =! THEN QETURN 
2102 IFNF=) THEVAF=1 
2193 IF ONU = 2 2N0 NB = i THEN 
RETURN 
2105 GF NB = d THEN POKE SOI + 


id: POKE 301 + 3,9: POKE SOI + 
2, (NU + 2) + 2: RETURN 
2106 NB = NB + 


1: 3OSUS 2000:N8 = 


Le 3 FRE ‘9) 
2003 30508 2130 


> 5 ato = )}:0/2) = ]:0(2) = DIN 
=) 
2208.) = INT (901 / 266):T= Da 


256154 = Mi = 


2310 20KE 232,0 POKE 223,0: 
DRAW NB + 1 AT 159,7 79 
se DL = SANTE 2: dE - 1):0L9Y = 
1) 3X = MOCOYTE — 


INT: Î 
= 3E - = 2 :dL0Y = GITE — BE - 


2) 3A = MKONTE - 3E - 2):Y = 
MITE = 3E- 2) 

2929 3070 199 

2550 IF INO/2= INT 9/2) 


Dunque, inserito il dischetto, bat- 
tuto il RUN MENU, e scelta da me- 
nù l'unica opzione presente per il 
momento (a parte quella di smette- 
re), lo schermo chiederà quante fi- 
gure prevediamo di conservare nel- 
la tavola. Fornita la risposta, si pas- 
sa altavolo da disegno: compare un 
puntino al centro dello schermo. 
Sotto compaiono alcune scritte, e in 
basso a destra lampeggia un NO, 
vicino alla dicitura PLOT. 

Ebbene, schiacciando la P, il NO 
non lampeggia più e diventa un SI. 
Provate. Provate anche a schiac- 
ciare ora, due O tre volte, il tasto |, 
poi due o tre volte il tasto U, poi il 
tasto K. Sullo schermo, un punto 
per volta, si disegna una linea, che 
prima sale in verticale (tasto |), poi 


AND KK = 215) AND KB = 215 THEN 
2340 

2335 IF K9/2< ) INT (K9/2) 
THEN 2340 

2338 RETURN 

2340 ON K9 GOTO 
2370,2399,2350,2399,2350,2399,23 
70,2399 

2350 CEN) = 0:Y = OLDY - 1: GOSUB 
580: RETURN 

2370 CCN) = 2:Y = OLDY + 1: GOSUB 
580: RETURN 

2399. GOSUB 2500: GOTO 200 

2400 HGR : ROT= 0: SCALE= 1: 
HCOLOR= 3: POKE LOC,O: POKE 
232,SM: POKE 233,0: DRAU"NG + 1 
AT 139,79 

2410 RETURN 

2500. ON K9 / 2 GOTO 
2510, 2520,2590,2540 

2510 X = DX > 1:C0N) = 1: GOSUB 
560: RETURN 

2520 Y = OLDY - 1:C(N) = 0: GOSUB 
560: RETURN 

2530 X = DX + 1:C0N) = 3: GOSUB 
560: RETURN 

2540 Y= OLDY + 1:C(N) = 2: GOSUB 
560: RETURN 


2730 ON K8 GOTO 
2370,2740,2350,2740,2350,2740,23 
70,2740 

2740. RETURN 

3000 IF K9 = 1 AND CKEY ) 201 AND 
KEY < 205) THEN 3010 

3001 IF K9 = 3 AND CKEY ) 201 AND 
KEY < 205) THEN 3020 

3002. IF K9 = 5 AND CKEY ) 201 AND 
KEY < 205) THEN 3030 


va in diagonale verso sinistra (tasto 
U), poi gira a destra (tasto K)... Ave- 
te compreso perfettamente: i tasti |, 
4, M e K provvedono al movimento 
nelle quattro direzioni cardinali, 
mentre i tasti U, N, < e O assicura- 
no il movimento nelle quattro dire- 
zioni diagonali, come è indicato an- 
che in Fig. 1, e come è ricordato 
dalla scritta che vedete sullo scher- 
mo, sotto la figura che state dise- 
gnando, dove gli otto tasti sono le- 
gati alle iniziali di nord, sud, nord- 
ovest, ecc. 

Vediamo gli altri comandi possi- 
bili: 

P = accende o spegne il traccia- 
mento, in modo da poter interrom- 
pere la linea e riprenderla, volendo, 
un po' più in là. 


3003 IF K9 = 7 AND (KEY ) 201 AND 
KEY < 205) THEN 3040 

3004 IF (K9 = 7 OR K9 = 1) AND 
(KEY = 201 OR KEY = 205) THEN 
OLDY = OLDY + 1: GOTO 899 

3006 IF (K9 = 3 OR K9 = 5) AND 
(KEY = 201 OR KEY = 205) THEN 
OLDY = OLDY - 1: GOTO 899 

3008 GOTO 855 

2 = DX + 2:Y=Y+ 1: GOTO 


3020 DX = DX - 2:Y=Y- 1: G0T0 
899 


alta = DX + 2:Y=Y- 1: 6070 

3040 DX = DX - 2:Y=Y+ 1: 6070 
899 

3999 RETURN 

4800 IF TT ) i THEN 4810 

4805 RETURN 

4810 IFN)1{ THNN=N-1 

4820 RETURN 

5000 PRINT N$ 


6000 PRINT *A";S0I 

7000 PRINT "L";(LOC + 2) - ADR 

2500. PRINT "NUMERO FIGURE 
(PRESENTI 0 FUTURE) :";NU 

8000 POKE - 16368,0: GOSUB 23000 

8002 CALL - 936: FLASH : PRINT 
“ORA RIMETTI IL 
DISCO-PROGRAMMA!": NORMAL : 
GOSUB 23000 

8010 D$ = CHR$ (4) 

8020 PRINT D$;"RUNMENU* 

15080 DX = DX + 2X=X- 1: 
2: GOTO 199 

15082 DX = DX - 2:X=X + 1: GOSUB 
2: GOTO 199 


GOSUB 


—! 
| a) BattiKk ce 
| = 
| b) BattiK si 

c) BattiK oss 


. 


(non si vede: è sopra un altro punto) 


d) spegni il plot: batti P 


e) BattiK 


f) accendiil plot: batti P 


2) BattiK 


Figura 2. La sequenza corretta 
per l'attraversamento di linee. | 


15084 DX = DX - 2:X = X - 1: GOSUB 
2: GOTO 199 

15086 DX = DX + 2:X = X + 1: GOSUB 
2: GOTO 199 

16000 SA = C(2):C(3) = 0: GOSUB 
635: RETURN 

18999 FLASH 

19000 PRINT *": PRINT "": CALL 
- 936: VTAB 21:FA = 1: PRINT 
"HAI RAGGIUNTO 990 BYTES. IL 
LIMITE E”": PRINT "1000. A 1001 
IL PROGRAMMA SALTA. FINISCI* 

19002 PRINT "A 1000, BATTI C 7 
VOLTE PER CONTINUARE": GOSUB 
23010: GOSUB 23010: GOSUB 
23010: GOSUB 23010: GOSUB 23010 

19003 GOSUB 23010: GOSUB 23010: 
CALL - 936 


19004 NORMAL : GOTO 170 
n BYTE = BT:L0C = Li: CALL - 
C) 

20001 IF AF=1| THENAA=1I 

20010 IF NB = 0 THEN BYTE = 0 

20020 IF NB = 0 THEN LOC = 2363 

20030 GOTO 488 

23000 NORMAL 

23005 PRINT : PRINT "QUALUNQUE 
TASTO PER CONTINUARE:": PRINT 

23010 PK = PEEK € - 16394): IF PK 
) 127 THEN 23030 

23020 GOTO 23010 

23030 POKE - 16368,0: RETURN 

25000 IF BYTE < 2 THEN 200 

25010 i 32000 

25020 S6 = 

25040 #coL0R= 0: HPLOT DX,OLDY: 
HCOLOR= 3 


Segue a pag. 62 


61 


£ = cancella "ultimo punto îrac- 
ciato. 
‘N = cancsila gli ultimi punti îrac- 


Dial. 


- 


Controi-F = conciuce U 


Segue ca pag. dI 

25079 DX = DG 9LDY = dY 

25090 IF THEY 15030 

25082 | THEN 15082 
Ì 15024 

? THEN (5086 


ESTESI 


Ubu 
4 
5 


25099 S0T0 199 
31900 IF 36=27HN {= 
31920 IF $6= 2 7HEN 56=) 
31030 IF 36 =) THEY 294 
31940 IF 36 = | THEN KCI= 
21920 IF 3G= THEN = 
31960 IF 36 =! 7HEN Î6=) 
31979 5079 294 
9 IFN=) 
IENDI 


33990 PRINT CARS 
19203,3: POKE 
10:K0 = PESX (222): 
*EARORE... L' SARORE 
"AO: POKE - 13249.): 
25000: POKE — 15504,): 
16297, 

3399 20KE 215, 

33992 ANERR S0T0 53990 

35993 IF KO = 53 FHEN 20000 


sam) + 


33999 3070 290 


La mela: una tentazione 
irresistibile. 

L'hai morsa: un'emozione 
incredibile. Cominci a 

gustarla: un sapore 
insaziabile. Tu applichi? Noi 
applichiamo. Ogni due mesi, 
in abbonamento, Applicando 
porta in casa tua la fragranza 
semplice e odorosa della 
mela. Per saperne di più. 

Per non perdere tempo. 

Per scoprire subito tutte le 
altre cose che puoi fare con la 
tua mela Apple II, Apple ///, Lisa... 


Tu applichi? 
Moi applichi omo, 


Applicando é bimestrale. 
Per applicare con noi 
abbonati inviando il 
coupon a 

Editronica srl. , 

C.so Monforte 39, 
20122 Milano. 

Oppure aquistalo: 

nei migliori 

Computer Shop. 


Per dar più poi 
alla tua Let i 


Apple e marchio regisirato della Acc 
Computer inc. a: Cupertino. C. 


r= 
] 
] 
] 
] 
] 
] 
| 
Ì 
Ì 
] 
] 
] 
Ì 
I 


Consulenza hardware e software: 
come, cosa, quando. Listati 
collaudati da copiare: per lavorare, 
per giocare, per imparare. Test dei 
programmi in commercio: 
confronti, valutazioni, 
suggerimenti. Applicazioni degli 
altri: chi, dove, cosa. 

Prove di accessori: quali, perchè, 
quanto. Poi le rubriche: i listini 
aggiornati, il mercatino delle 
mele, chiedi un programma, 
guadagnare col computer. 
Novità, utilities, routine, 

spunti, suggerimenti, idee. 


ù » 1 
va 3 a è; 
Grufis, se li abooni 
Un dischetto con tre utilissimi superprog rammi 
e la Facility Card Applicard che, fra 
darà dintto a sconti sui programmi che v 
otteni da Applicando. Compila e spedisci 
subito questo tagliando a Editronica s.1.J., 
C.so Monforte 39, 20122 Milano. 


eieieiieionionionin: PP 


Si, mi 
inviatemi sei numen di Applicando. | c:scnetto 
con i tre programmi gratis, e la cana Applicard. 
_ Allego assegno non trastenbile ci ire 30 mila intestato a 
Editronica ssd. 

_ Allego ncevuta di versamento di lire 30 mila sul conto comente 

postale n. 19740208 intestato a Editronica 8.54. C.so Monforte 39 
20122 Milano. 
_ Pago fin d'ora lire 30 mila con la mia 
numero scadenza 
autonzzando la Banca d'Amenca e citalia ad addebitare ‘impono 
sul mio conto BankAmencard 


licard 


absonc! 


cana ci crecito BankAmencard 


Cognome 


N 


MUSsiCA Chi na detto che Appie /// serve solo 
per la contabilità? Questo 
programma !c îrasicrma in un pianoforte. 


Do re mi fa 
sull per 


REI CC) 1983 - COPYRIGAT 3Y 206 IP as=*i4 OR AS=*2% OR 
APPLICANDO AND INCIDER È 


a 
m 


10 PRINT CHiSCI) ; 1 HOME IRA 5 
24 rogo 
È. u A 
AZIONE 
* Ca Da 
pi b) 
ge 


; d):°9= iuona la 

in memoria’. 

PRINT? Cancella ?/yitima 
nota suonata” 

350 PRINT FARC 02 Dance) 


1 


T*M= Carica una canzone 
: (X)=9 THEY VOL=d 2 
nt BRITA: sCBSCBÌ: 5 NT 7AB(19) 122 Regola il 


Ms Jalva la canzone 


0; HEN 3079 140 
130 IF assi CUBI di 


an 


i du 


1990 IF 83=%N" THEN 40E:3070 


DAL DISCO 
3590 HOMELINPUT'GUALE CANZONE ? 


iF_AS="N" THEN G070 13 
IF 43524? THEN 30 EP 1? ica THEN PRINT 
if } *rig0T0 420 


PS 3, 
INT 4800) 130*; EN#2 AS eur, N3 


dfn la, WW=ien:0) ? CRBRI È 
tri :C0TO 1000 FIR AI TORI 
220 IF A$=9? THEN PRINT READI2:R0X) 


seg RSLI I PABMEDLISERL IO 


a d39 10 (2 IFa KI 9; 


NEG 4 
£42 


i 193 ISTRUZIONI 
246 NEO + tod SRINT USI NG*30c* 19 IFNO* 


# 
met È 


rasformare la tastiera del vostro Apple // in quella di un 
T pianoiore? È semplice: basta usare il programma che 
riportiamo in questa pagina. Potrete così suonare in tempo 
reale mentre le note compaiono sul monitor. E una volta 
composta la melodia potrete risentirla premendo il tasto P, o 
metterla in memoria con il tasto N, in modo da poter inserire il 
motivo anche in altri programmi. 

Il menu comprende la possibilità di effettuare semplici mo- 
difiche per variare la velocità di esecuzione e il suo volume. 
Prima di cimentarvi con questo programma assicuratevi che il 
driver “Audio” sia inserito nel file del vostro driver. Il program- 
ma, così com'è scritto, prevede che solo le maiuscole possa- 
no rappresentare le note. Nonostante sia stato scritto in Apple 
IIl business basic, è piuttosto semplice modificare il listato in 
modo che possa venire accettato anche da altri computers 
dotati di capacità musicali. 


620 PRINT TABC10);"[spazio] = 
Rest 8a 

630 PRINT"& Fine* 

640 PRINT CHR$(2); 

650 RETURN 

660 END 

670 REM TASTI VALORI DELLE 
NOTE, & NOTE 

680 DATA A,W,S,E,D,F,T,6, 

alli Vada 
690 DATA 1946,1836,1733,1636, 


1544,1457,1376,1298,1226,2257, 
1092,1031,973 

DATA ape sCR* 0 58" sE s 
"FP, FR", "6", ‘68°, ‘A",°A8°, 


700 


"p' al 
210 END 
720 REM SALVATAGGIO SU 


DISCO DELLA CANZONE 
730 HOME:INPUT"CON QUALE NOME 
*iN$:IF LEN(N$))15 THEN GOTO 
730 
235 IF N$="PIANO"THEN PRINT 


CHR$C7) :GOTO 730 


240. PREFIX$=".DI/* 

250 CREATE N$,DATA 

260. PREFIXS=" .DI/":0PEN#2 AS 
OUTPUT,N$ 

765 WRITE#2:;R 

270. FORT=0OTOR-I 

780 URITE#2;RCT) 

790 NET T 

800 CLOSE#2 

810° PREFIX$=".D1/":LOCK N$ 

820 HOME 

830 GOTO 100 

960 GOTO 100 

1000 IF L<i OR L)300 THEN 
L=L:6070 100 

1010 G0TO 100 


Apple 
a Genova. 


La mela 
secondo Sals Informatica: 


Sistemi completi pronta consegna 
Tutti gli accessori e le periferiche 
Materiali di consumo 

Programmi per ogni esigenza 
Assistenza tecnica 

Corsi a tutti i livelli 

Consulenza 

Informazione tecnica e commerciale 
Show room 


Distribuzione per l'Italia 


@Joppie computer IRET 
informatica 


Sals Informatica: 
Tutti i servizi , 
per la vostra automazione. 


A iaformaltica 


Via G. D'Annunzio 2-35 — 16121 Genova tel. (010) 589.327 , 


Flanaghan 
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Una spericciaia caccia ai tescro, 
a nuoto, fra !e insidie dei tronchi galleggianti: 


scco un vassaismro divertente 


cne richiede acilità e sencue iredco. 


i tronchi 
clel tesoro 


Cira serfettamente su Accise | 3 
CIUS 3 su Accie /s. curcne ncn sia 23C- 
iguace Darc. Se zuest ulti. 
nveca attivata accencenco il 


i nmaginiamo ci assere in Canaca. 
magari sui 5aser Siver. ‘rascinati cai 
rcriici sella sorrente. Qua 3 .a Jallec- 
ziano saccneiti cieni zecci ci collari. Ma 
ser aîferrani sccorre avitara | :rcneni somct 
'albero galleggianii cne i ‘agiialegna cente i 
icarc sel fiume. 
3 iacevolissim 


inguaggio integer. 
amcecgiara 5 


ò 


100RBI BHRRERRORAREE 
JI REN è TRONCHI * 
12 RBI * BYALANFOX * 
13 REM &*(C)1983 COPYRIGHTA 
14 REI è BY APPLICANDO « 
S ORE * ANDINCIDER * 
MERN IV ME LITE TTT TTITETTEETi 
17 REM 

18 REY Questo programma gira 


perfettamente su Apple il a su 
Apple//e, La scheda Language, 
se accasa, provoca lievi 
difetti alla parte testo: 
meglio disinseriria, 

30 RE4 

32 POKE 758,173: POKE 769,48: 
POKE 770,192: POKE 771,138: 
POKE 772,208: POKE 773,4: POKE 
774,198: POKE 275,7 

SS POKE 776,240: POKE 777,3: POKE 
778,202: POKE 779,208: POKE 
780,246: POKE 781,156: PAKE 
782.6: POKE 793,75: POSE 794,0: 
POKE 795,93: POKE 796,26 

10 SA = ):H6 = 0:97=0 

300 TEXT: ROME : VTAR <11): HTAB 
(10): FLASA 1 PRINT *TRONCAI": 
MORMAL © UTAB (13): HTAB (10): 
PRINT "WRITTEN 3Y ALEN FO" 

SE VTAB (20) :PRINT 
*{C)1993-COPYRIGHT APPLICANDO 
AND INCIDER® 

30 FOR d= 1 TO 200: NET di: 
GOSUB 1090: FORD =! TO 500; 
NET D 

700 TEG : HOME : PRINT 
SOREFERISCI SIOCARE CON LE 
PADDLE*: PRINT #9 CON i 
TASTIERA? (9/7) =)';: SET A$: 
PRINT 38 

43 = "7? THEN S8 = 


30 if 
3079 


29% THENONS = 


POKE - | 


*TRONCHI 1°: VTAB (5): PRINT “IL 
SÌOCI SONSISTE NELL’ AFFERRARE 


IL": PRINT "MAGGIOR NUMERO 
POSSIBILE DI SACCHI DI": PRINT 
"DOLLARI, RAPPRESENTATI DAI 
PUNTI VERDI ,*: PRINT "PRIMA CHE 
IL TEMPO FINISCA, 0" 

150 IF CN$ = "K" THEN PRINT 
"PRIMA CHE UNO DEI TRONCHI TI 
COLPISCA.": PRINT "AVANZERAI 
COSTANTEMENTE. PER SPOSTARTI": 
PRINT ."A DESTRA 0 A SINISTRA 
USA I TASTI": PRINT "CON LE 
FRECCE. ";: FLASH : PRINT "PER 
ANDAR DIRITTO, BATTI" 

160 IF CN$ = *K" THEN PRINT "LA 
BARRA SPAZIO.": NORMAL : GOTO 


210 

170. PRINT "PRIMA CHE UNO DEI 
TRONCHI TI COLPISCA,": PRINT 
"AVENZERAI COSTANTEMENTE, PER 
SPOSTARTI": PRINT "A DESTRA 0 A 
SINISTRA USA LE PADDLE. CHE": 
PRINT *PADDLE VUOI USARE, LA 0 
O LA 12 (0/1) =)*}: GET h6 

180 P= VAL CA$): IF P) 1 THEN 


140 

190 PRINT P 

200 PRINT : PRINT "OGNI 5 LIVELLI 
VINCI UNA PARTITA" 

210. PRINT : PRINT *] SACCHI VERDI 
VALGONO 15 PUNTI CIASCUNO": 
GOSUB 1040: GOSUB 1040: GOSUB 
1060: GOSUB 1060: IF CN$ = "K" 
THEN PRINT : INPUT "PRENI 
RETURN PER PROSEGUIRE, =)";A$: 


PRINT 

220 POKE - 16368,0:LV = LV + 
1:CG= 0: IF INT (LV/5) #5 
= LV THEN TURN = TURN + 1: HOME 
: FLASH : PRINT "HAI VINTO UNA 
PARTITA EXTRA!!!": NORMAL : 
GOSUB 1080 È 

230 TI = 0.129 

240 GR: IFIV) 4 THNTI = 


0.085 

250 ‘COLOR= 15: FOR 1 = 0 TO 39: 
HLIN 0,39 AT I: NEXT 1 

240 COLOR= 0 

270 GOSUB 280: GOTO 380 

280 X3 = 5:X4 = 11:X5 = 25:X6 = 31 

290 COLOR= 15: HLIN 1,39 AT 5: 
HLIN 1,38 AT 25: HLÎN 1,38 AT 
15: HLÎN 1,38 AT 35: ULÎN 1,38 
AT 15: VLIN 1,38 AT 25 


300 FORCS=1T06 

310 IF INT {V/2)#24 ) 
LUOLV ) 4 THEN COLOR= 0: PLOT 
X4,5: PLOT X6,25: PLOT 39 - 
X4,15: PLOT 39 = X6,35: COLOR= 
15: PLOT X3,5: PLOT X5,25: PLOT 
39 - X3,15: PLOT 39 - X5,35 

320 IF INT LV /2) #2="LV 0R 
LU ) 4 THEN COLOR= 0: PLOT 
X4,5: PLOT 25,X6: PLOT 15,39 - 
X4: PLOT 39 - X6,35: COLOR= 15: 
PLOT X3,5: PLOT 25,Y5: PLOT 
15,39 = X3: PLOT 39 - X5,35 

3a Nd = MA 4 15 1F XA) 38 T0EN 

395 POKE 4,255 - (CS # 10): POKE 
7,3: CALL 768 

340 X3 = X3 + 1: 1F X3 ) 38 THEN 


X3 = 2 
sl 1: IF X5 ) 38 THEN 
X5 = 2 
360 X6 = X4 + 1: IF X6 ) 38 THEN 
X6 = 2 


370 NEXT CS: RETURN 

380 U2 = INT (LV * 2,5) 

390 COLOR= 14: FOR UO = 1 TO U2 

400 GY = INT C RND (1) # 34) 43: 
IF 6Y=5 0R6Y= IS 0RG6Y = 25 
OR GY = 35 THEN 400 

410 GX = INT C RND (1) ® 33) 4 di 
IF GX = 15 OR GX = 25 THEN 410 

dl SCRVC GX,6Y) = 14 THEN 


430 PLOT GX,6Y: NEXT UO 

440 COLOR= 1: VLIN 3,36 AT 0: 
VLIN 3,36 AT 39 

450 HOME 

460. REM TIME 

470 GOSUB 480: GOTO 590 

480 COLOR= 2: HLIN 0,39 AT 39 

490 COLOR= 13: PLOT 19,38:X = 
19:Y = 38 

500 1F LU < 2 THEN VTAB (23): 
PRINT "ORA RICORDA, NON 
SBATTERE CONTRO I": PRINT 
STRONCHI 0 CONTRO I BORDI!!!*; 
FOR D = i TO 2200: NEXT D 

510 HOME : PRINT "*TEMPO**; TABC 
17);"PUNTI*; TABC 31); "LIVELLO 


*;U 
520 "UTAB (23): PRINT "PRONTO,..* 
530 GOSUB 1060: UTAB (23): PRINT 

"ATTENTO... : 


540 GOSUB 1040: UTAB (23): POKE 
6,175: POKE 2,7: CALL 268 

550 ‘PRINT "VIA!!! +; TAB 
18);SC; TAB( 23); "DA GIÙCARE-) 
ts 646 =" 

570 TIME = 39.9: POKE - 16348,0 

580 RETURN 

590 R$ =" * 

600 1F INT (LV /2) #24 )LY 
OR LU > 4 THEN COLOR= 0: PLOT 
X4,5: PLOT X6,25: PLOT 39 - 
X4,15: PLOT 39 - X6,95: COLOR= 
15: PLOT X3,5: PLOT X5,25: PLOT 
39 - X3,15: PLOT 39 - X5,95 

610 1F INT (LV / 2) #2="LV OR 
LU ) 4 THEN COLOR= 0: PLOT 
XA,5: PLOT 25,X6: PLOT 15,39 - 
X4: PLOT 39 = X6,95: COLORS= 15% 
PLOT X3,5: PLOT 25,X5: PLOT 
15,39 - X3: PLOT 39 — X5,35 

620 Xd = X4 4 1: 1F X4 ) 38 THEN 


X4 = 2 
na va 4 1: IF X3) 38 THEN 
640 XS = XS + 1: IF XS ) 38 THEN 
7 da 4 1: IF X6 ) 38 THEN 


4= 

660 GOSUB 880 

670. IF ON$ = "P* THEN 710 

680 IF PEEK ( - 16384) = 149 
THEN  GOSUB 940 

690 IF PEEK € - 16384) = 136 
THEN  GOSUB 1000 

200 GOTO 730 

da PDL (P) ) 170 THEN GOSUB 


0 
720 ]F POL CP) < 85 THEN GOSUB 
1000 


230 TIME = TIME - TJ: COLOR= 15: 
PLOT TIME,39 

240. IF TIME < 1 THEN H$ = "T": 
GOTO 790 

250 1F WH$ = "L" THEN Hd$ = "H": 
GOTO 790 

260 IF C6= ) U2 THEN 860 

270 FORD=1 TO UB: NEXT D 

280 GOTO 590 

290 COLOR= 15: PLOT X,Y: GOSUB 
1270: FLASH : IF H4$ = "H" THEN 
PRINT “COLPITO! !!" 

800 IF Hd$ = "T" THEN PRINT “IL 

Segue a pag. 68 


z <q 
9° Di Segue da pag. 67 1083 IFS=2THNEN= ST = 
NI JJ: 1:INC = 5 ni 
di ug I TEMPO E’ FINITO" 1085 FOR 1 = ST TO EN STEP INC: 
ia il Di 810 NORMAL : GOSUB 1060: GOSUB POKE 4,1 / 2: POKE 7,4: CALL 
n ne 1 1060 268: POKE 6,1/3: POKE 7,4: 
5a — 820 TURNS = TURNS - 1 CALL 768: POKE 6,1 /4: POKE 
830 IF TURNS { = 0 THEN GOSUB 7,4: CALL 768: POKE 6,255 - ]: 
1100 POKE 7,4: CALL 768: NET I 
840 IF TURNS >) 0 THEN GOSUB 280: 1087 NEXT Ss 
GOSUB 480: GOTO 590 1090 RETURN 
850 GOTO 70 1100 REY PUNTEGGIO 
960 HOME : VTAB (23): FLASH: 1110 TEXT : HOME : VTAB (2): HTAB 
PRINT "BEL COLPO!!! ORA IL (10): PRINT *IL TUO PUNTEGGIO 


PROSSIMO LIVELLO.": NORMAL: 
GOSUB 1060: GOSUR 1060: GOTO 1120 1F SC > HS THEN HS = SC 


220 1130 GT = GT +5C 
870. END 1140 GA = GA + 1:PONT = INT (6T/ 
i 980 REM “UP GA) 
Zi = 890 IFY- 1 < 0 THEN COLOR= 13: 1150 VTAB (5): PRINT TAR 
Bi PLOT X,38: COLOR= 13: PLOT $) p "RECORD ; TABC 25) :*PUNTI* 
î X,38: COLOR= 15: PLOT X,Y:Y = 1150 "VTAB. (6): HTAB (55° PRINT 
< zi 38: RETURN t.-- : TAB (6): HTAB (25): 
ti Hi no, ui SCRNCX,Y - 1) {31 PRINT *----- 
î EN UHS = "L': RETURN 1170 UTAB (7): PRINT TAB( 9);H5; 
Q si no. i SCRN( X.Y - 1) = 14 THEN TAB 26) ;SC 
:] GOSUB 1300 1180 UTAB (12): PRINT TAR: 
5 î' = 920 COLOR= 12: PLOTX,Y-1 6) ;"PART.GIOCATE*; TAB€ 
la :: 930 COLOR= 15: PLOTXY:Y=Y- 20) ; "PUNTEGGIO MEDIO 
a) 1: RETURN 1190 VTAB (13): PRINT TAR 
240 REI -)SINISTRA-) $) forno) *; TA 
Ul 950 IFX + 1) 39 THEY RETURN Mipfcnnnnta 
260 IF SCINCX +1, < =1 1200 UTAB <14): PRINT TAB 
ca THEN UH$ = "L': RETURN 11);6A; TABC 20) ;PC;* PER 
ra 970 IF SCANCX + 1,Y) = 14 THEN PARTITÀ.* 
) GOSUB 1300 1205 GOSUB 1080 
. a 980 COLOR= 19: PLOT X + DO, 1210 POKE - 16368,0 
è) S 390 COLOR= 15: PLOT X,Y:X=X+ = 1220 VTAB (22): INPUT "VUOI 
Ra. i 1: RETURN GIOCARE ANCORA? (S/N) =)*;4$ 
À, o 1000. REM <-DESTRA(- 1220 LV = 0:5C=0 
È {010 IFX = 1 < 0 THEN RETURN 1240 IF LEFTS (48,1) = *S" THEN 
di 1920 IF SCNCX- IM (31 RETURN 
ec: DE THEN UHS$ = "L*; RETURN 1250 IF LEFT (AS,I) = "N° THEN 
e) _- î 1030 IF SCRNCX - 1,Y) = 14 THEN PRINT : PRINT "CIAO !!": END 
Us  UROA GOSUB 1300 1260 GOTO 1220 
deli = 1040 COLOR= 13: PLOT X - 1,Y 1270 FORI=255 TO 1 STEP - 5: 
ti i E 1050 COLOR= 15: PLOT X,Y:X = X - POKE 6,1: POKE 7,1: CALL 768: 
i {1 RETURN NEXT I: RETURN 
h <l  1060 FORD=1 T0 300: NET D: 1300 SC = SC + 1S:C6= (64 1: 
< 2 RETURN UTAB (23): HTAB (18): PRINT SC 
È; 1980 FORS=1702 1310 B = PEEK ( - 16396) + PEEK 
dh) > 1092 IF S= 1 THEN ST = 2S5:N= ( = 16326): RETURN 
5 = SINC= - 5 
0) E 
2 Se gia , 
A - Fai LI 1 
< < E pi A rn F È sa 
na = L e : " 7 
=l = og = SF - È: 
al > «2 Y 3 =" > > gal praga & 
DI i. dA A A de 
< < bi Ra; EN Cai tm DI Ù < “e è re 
Le a) > a) PIC 
arr e Pa 


pporE IE Su 427 prodotti per Apple II, fra programmi e hardware, solo 59 
sono inadatti a Apple //e. Ecco i risultati dell'esame di Applicando. 


Compatibilità vo’ 
cercando 
ch'è sì cara... 


pple //e è stato progettato in modo 

da risultare hardware e software 
compatibile con Apple Il, per non creare 
problemi a coloro che desiderano pas- 
sare dall'uno all'altro sistema. Qualche 
piccola differenza tuttavia esiste, per al- 
cuni programmi o per alcune schede 
hardware. Applicando pubblica in que- 
ste pagine una tabella in cui sono elen- 
cati in ordine alfabetico i principali pro- 
dotti hardware e software per Apple, 
precisando quali funzionano solo con 
Apple Il, quali non presentano alcun 
problema su Apple //e, quali invece pre- 


sentano piccole differenze, e per quali, 
infine, è (0 sta per diventare) disponibile 
una nuova versione per Apple //e. 

Nella tabella, D significa che le diffe- 
renze riguardano i manuali di Docu- 
mentazione; T che le differenze riguar- 
dano la Tastiera (che sull’Apple //e è 
modificata); S che le differenze riguar- 
dano il display sullo Schermo. Per que- 
st'ultimo nessuna indicazione è stata 
inclusa se le differenze sono legate alla 
presenza dell'Apple 80-Column Text 
Card, se essa non è necessaria per la 
funzionalità del prodotto. 


Nuova versione per Apple //e 


Differenze marginali su Apple //e 


remo yo 


Perfetta compatibilità 


botatata ta tata 


de BE MII I RAI 


Nuova versione per Apple //e 


Differenze marginali su Apple //e 
Perfetta compatibilità 


j x A 
x d :0T 
x x 
x 4 X 
Xx x 
x T 

Ì s 
x 
x 

€ D 
x 

A X 
x 
x 
x 
Xx Xx 
x 
x: 
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Nuova versione per Apple ;/e Nuova versione per Apple //e 


Differenze marginali su Apple /e Differenze marginali su Appie //e 


Perfetta compatibilità Perfetta compatibilità 


Solo Apple Il Solo Apple Il 

Programma Produttore — Programma | Produttore 
BPI Job Cost 1.8 i Apple x Elementary Math Muse X 
BPI Payroll 1.8 È Apple X Elementary My Dear 1 Apple x 
Brock Accounting i McGraw-Hill X ELT 8 Interfacing Progr. | Saville AV UK x 
Budget & F. Reporting | State-of-the-Art A Empire |, 1.3 | Edu-Ware X 
Building Services Progr. Technique UK s Energy Search i McGraw-Hill x 
Bumble Games | The Learning Co. X Enterprise Sandwich i McGraw-Hill x 
Bumble Plot | The Learning Co. x Ernie's Quiz i Children's TV x 
Business Graphics Apple D Exec Briefing Sys, '81 | Professional SIW SL 
C.0.R.P. Dynatech Micro SIW UK X Executive Secretary IV SoflSys, Inc. D 
CCS Interfaces 1 Wego Computers UK x Fact Track, 6-1450 | SRA pe 
Cannonball Blitz, '82 Sierra On-Line & Feed Formulation Syst. Dewco info. Sys. UK Xx 
Castle Wolfenstein, '81 ‘ Muse x File Access j Microtech Comps. UK Xx 
CBM Business System =‘ C.B.M. UK Xx Financial Accounts j Computech UK Xx 
CCSs-Cash i Croesco Comp. Serv. UK x Financial Controller | Systematics Int. UK Xx 
Chain Mail { Computech UK x Firefly i Muse > 
Choplifter, '82 | Broderbund X First Class Mail, '82 ! Continental x 
Citibank Gateway | Gate Microsyst. UK Xx Flexitext ) Forester SIW UK Xx 
Classroom Answer | Houghton-Mifflin x Flight Simulator, '80 | Sublogic Xx 
Classroom Learning Sterling Swift r Format II, ‘82 H Xx 
Client Cost Allocation 1 Datron Software UK X Formletter ! Muse x 
Clothman Taunton Electronics UK x Fortran, ‘77 | Apple D 
Cobol, '81 i X 7-30 Frazzie, ‘82 ! Muse Software X 
Comm-Pac, '81 ! Apple D General Ledger | State-of-the-Art 054 
Communications Card | Apple x General Manager, '81 i Sierra On-Line x 
Complete Graphics Il, '82 ° Penguin SIW bi Gertrude's Puzzies i The Learning Co. % 
Computer Discovery i Xx Gertrude's Secrets | The Learning Co. x 
Computer Power ! McGraw-Hill x Gestion 4 Modules | BUSF Xx 
Concept 2000 Software | Stallion Comp. Syst. UK X Gestion de Projet : Lardennois F Xx 
Cressage Newsround ! Cressage Comp Serv. UK Xx Gipsi Paye | SAARIF s 
Cross Clues, 6-500 SRA X Graforth, '82 i x 
Crush Crumble & Chomp, » x Gran Prix | Muse x 
CS - Stocktakers : Croesco Comp. Serv. UK x Graphics Interface Cal. Comp. Sys. 
Cube Solution Muse x Graphics Magician Penguin x 
CX Multigestion i Controle X { Graphpack Computer Science UK Xx 
D.J. Portfolio Eval., ‘79 Apple x Graudesphi Apeas F ® 
Daisi - A003 Interactive Struc. 7 Gribouille ! MLLE HOD F ù. 
Daisi - A102 Interactive Struc. ta Gsioc Card | Anarchem UK Xx 
Daisi - A109 ; Interactive Struc. # Hand-holding Basic, '81 | Apple T 
Daisi - A113 | Interactive Struc. Fr Hardware Clock Card | Mountain Hardware X 
Data Capture, 4.0 *  Southeastern SIW Xx Heat Transfert Package ! Celtip Stars Micros. UK Fr 
Data Factory, 5.0 | Micro Lab Xx High Speed Serial»: .| Apple x 
Data-Plot i Muse P Higher Text Il G | Synergistic SIW x 
Database | Style System UK Xx Home Accountant, 2.01 | Continental x 
Datatree, '81 | Apple D.T Host Hotel System \\\j C.R. Pymm UK Xx 
David's Midnight Magic. | Broderbund x Hosys ‘i DSA Informatique F Xx 
08 Master Util Pk #1,81 | Stoneware, Inc. x Hotel Billing "| Lakeland Comp. Serv. UK x 
D8 Master Util Pk #2,82 . Stoneware, Inc. x How to BASIC i Sterling Swift r 
DB Master, '80 | Stoneware, Inc. x HPLC Analysis and Cota ! Drew Scientif. UK Xx 
DBase Il, 2.3B j Ashton-Tate x Hypergraphics } i McGraw-Hill 2 
Deadline, '82 | Infocom 2 ICE Winchester Subsyst. | ICEUK x 
Decisionnel Graphique ! Adde Marketing F Ss IMCA Accounting + <:. Sl South. Comp. Syst. UK x 
Dental Software CN :| Attar Computers UK SF Incomplete Records Syst.-! DMS Knightbridge UK Ss. 
Dentracs «<< ‘i C.A. Pym UK x Incredible Jack, "82° << | Business Solutions 
Desktop/Plan 2.1.2 e x Instant Zoo <.... Children's TV X 
Dictionary, ‘81.0; ° 3 Sierra On-Line * Intr. Data Proc. McGraw-Hill & 
Discount Manager.‘ * Northern Computers UK x Inventory Control | State-of-the-Art Xx 
Discover BASIC»... * al Sterling Swift "È Investment Pack .. i| McGraw-Hill Xx 
Disk Controller - 8 4 Sorrento Valley X Invoicing i Bedford Micro Centre UK Xx 
Disk Utilities: | x IOR È | Bedford Micro Centre UK 53) 
Dispatcher Le : x Joyport è | Sirius 7,4 
Dispensing Label Set ‘| Bedford Micro Centre UK Juggles Rainbow ‘| The Leaming Co. Xx 
DMS Barcode Printer DMS Electronics UK x Kabul Spy, '8T ©. 4 Sirius ® 
DMS Barcode Reader , DMS Electronics UK x Keel Resort Hotel Syst. ‘ .:j Keel Data Syst. UK x 
DMS Plot Dot >: «© | DMS Electronics UK x Keyboarding Academic “| McGraw-Hill 0 
DMSC99 RGB Colour c. 4 DMS Electronics UK * Keypuls <..3 Aids Data Systems UK Xx 
DOS 3.3 È | Apple x Kitchen Design 3.| DMS Electronics UK Xx 
DOS Boss, "87 .1 Beagle Bros. X Knights of Diamond, "82 * x 
DOS Tool Kit ‘| Apple x Know Your Apple “%a.* | Muse 
Double Glazing Window” ‘| Micro Applecations UK x L'enfant et l'Ordinateur | G Blanc F Xx 
Dow Jones News Retrieve | Apple s.d L.C.C. Forth Ù ‘| Eeicester Comp. Cent. UK Xx 
DU-8 Wavelength Scan | DREW Scientif. UK x Labyrinth, ‘82 ‘i Broderbund x 
Dueling Digits, '82 _ | Broderbund X Letter Perfect, 5.0 «1. LSA Enterprises x 
£-Z Draw, 3.3 | Sirius r.D Lisa, 2.5 H Xx 
Education Series : Milton-Bradley x Loadman *  Taunton Electronics UK Xx 
Slem. Math | Sterling Swift r Logifiche ! PEYLAF X 


TAR 


Nuova versione per Apple //e 


Differenze marginali su Apple //e 


Perfetta compatibilità 


MI MR dA 
= SITE 


x 


dx dx Id da do dado dd 


dx x xx Xx 


xd x 


Nuova versione per Apple //e 
App 


Differenze margina 


(12) 


DEI DID DEBITI IAA 


DT 


DR MRI MO DI III RA 


xo xo xx 
x 


Differenze marginali su Apple //e 


Programma 


Structural Engineering 
Structured BASIC 
Suivi d'Etudes/Product 
Super Serial Card 
Super Structure 
Super-Pilot, ‘82 
Supermap, '80 
Supermon 

Supertext, '82 
Swashbuckler, ‘81 
Syslab 

Systemics G. P. Package 
TASC, "81 

Tax Miser, MMCA810011 
TBM, 2.2.2 

The Developer 

The Doctors Office 

The Mill (MC6809) 

The Optician 
Thunderciock 

Time Manager, ‘80 
Time Zone, ‘81 
TK!Solver 

Travellplan Suite 
Tubeway Il, '82 

Typing Tutor Il, '81 
Typing Tutor Il, 2.1 

U Draw Il 

U-AID Converter 
U-BCD 

U-DT - Il0 & Timer Card 
U-NET 

U-Port 8 Seriai li0 Card 
U-RAM 128 

U-Ram 16 & U-Ram 32 C. 
U-S232 Serial Interface 
U-TiM-Interna! Timer C. 
U-Z80 Card for CIPM & B. 
Ultima, "81 

Utility City, '82 

VBLS 

Versa Ram Disc - Emui. 
Versacalc 18, 2.0 
Versaform, '81 

Vet2 

ViciCalc Templates 
Video Library Manager 
Videocard 

Videoterm 

Visi. Real Estate, '81 
VisiCalc Utilities 
Visicalc, 2.08 

Visidex, 1.02 

Visifile, 1.1 
Visischedule, 1.05 
Visiterm, 1.1 
Visitrend/Plot, 1.1 
Voice 

Wayout 

Western CPIM Business 
Winchester Disk 

Wizard & Princess, ‘80 
Wizardry, '81 

Word Handler 

Word Handler Il, 3.5 
WordSkill, 6-3021,26 
Wordstar, 3.01P 
World's Grt Blackjack 
Xcomp 5X5 10MB Win. 
2-Card 

Zarday 

Zoom Grafix, '81 

Zork Il, '81 


Nuova versione per Apple //e 


Perfetta compatibilità 


Solo Apple Il 
Produttore 


McGraw-Hill 
U-Micros. UK 
Lardennois F 

Apple 

Leicester Comp. Cent. UK 
Apple 

Apple 

Leicester Comp. Cent 
Muse 

Datamost 

Jacques Heine F 
Sistematics Intl. UK 
Microsoft 

Sunrise Software 
Pascal Systems 
Leicester Comp. Cent. UK 
Taunton Electronics UK 
Stellation Two 
Compuskill UK 
Mountain Hardware 
Microsoft 

Sierra On-Line 
Software Arts 
Printronic UK 
Datamost 

Microsoft 

Apple 

Muse 

U-Micros UK 
U-Micros UK 
U-Micros UK 
U-Micros. UK 
U-Micros UK 
U-Micros. UK 
U-Micros UK 
U-Micros. UK 
U-Micros. UK 
U-Micros UK 
California Pacific 
Beagle Bros. 

Scott Instr. 
U-Micros. UK 
Aurora Systems 
Applied SIW Tech 
Scott Instr. 
Micromark UK 
Datron Software UK 
ALS 

Videx, Inc. 

Apple 

Leicester Comp. Cent. UK 
Visicorp 

Visicorp 

Visicorp 

Visicorp 

Visicorp 

Visicorp 

Muse 

Sirius 

Western Comps. UK 
Davong Systems 
Sierra On-Line 
Sir-Tech SIW 
Fletcher Dennys Syst. UK 
Silicon Valley Sys 
SRA 

Micropro 

Apple 

Pete & Pam Comps. UK 
ALS 

Intelcom 

Phoenix Software 
Intocom 


xx 


dd 


x 


XXX RNAXX 


x NEO XX MR 


RARA 
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1 SISTEMI DI COM 


DALL'INVI 


INICAZIONE AZIENDALE SI EVOLVONO. 


SUPPORTI MAGNETICI 3M. 
IZIONE AL PRIMATO TECNOLOGICO. 


I primo nastro per 
computer è stato 
prodotto dalla 3M 
nel 1952. Un primato 
che ha consentito la 
realizzazione dei 
supporti magnetici più 
affidabili e sicuri. 

Le Diskette 3M, 
ad esempio. Omologate 
dai maggiori costruttori; 

Certificate al 100%. A 
Garantite $ anni. Esportate 
in tutto il mondo. Prescelte come 
riferimento internazionale da ECMA, 
ISO ed ANSI. Una gamma completa 
sia per le Diskette 8 pollici che per le 
Minidiskette S pollici e un quarto. 

Le Diskette 3M, grazie all’esclusivo 


rivestimento magnetico, 
garantiscono 
un'eccezionale resistenza 
all'usura e la massima 
affidabilità. 

La stessa affidabilità 
che offrono tutti i 
Supporti Magnetici 3M: 
Nastri per Computer, 
Dischi Magnetici, 

Data Cartridge. 

Le Diskette e i Nastri Magnetici 3M 
sono interamente fabbricati in Italia e 
questo significa immediata reperibilità 
e migliore assistenza. 

Assistenza e consulenza tecnica 
che il Cliente trova presso le 8 filiali, 

i venditori diretti e 400 distributori 3M, 
in tutta Italia. 


SISTEMI PER L'UFFICIO 3M.LA PERFEZIONE DELLA SPECIE. 


Sistema Visual 


Telecopiatori Copiatori 


— ——- _—— == 4 
Desidero ncevere ulterion informazioni | 
sut Supporti Magnetici 3M 
Nome _ — | 
\zienda —__ | 
Via — | 

al 
$ c useli ila Postale 1041/1042. 2010 Milano 
Microfilm Oppure telefonare a: 0)2/7545 CA 


In queste pagine Applicando subolica i listini prezzi aggior- 
nati dei procotti Apple distribuiti dalla !ret Informatica SpA. 


Via Bovio 5, 42100 Reggio Emilia. 


Listino in vigore dal 1 aprile 1983. | orezzi non comprenco- 


no le spese di installazione. 


APPLE //E 


Appieile .........0> 
Unita centrale del sistema. comerensiva gi: * 
Memoria da 64Kbyte RAM a 16K&vie CM » 
Tastiera italiana con maiuscole a minuscore ® 
interfaccia per registratore a cassette » Se- 
gnaie di uscita video 2/N = colori ?AL » Soft 
ware di base resicente: » Monitor. Zisassem- 
bler. BASIC asteso APPLESCET 


ESPANSICNI 


Scheda 30 coienne............. ETTI 
Permette all'Accie le si visualizzare 
30 scionne. 


Scheda 30 cclonne con aspansicne 
MOFÎA ..isescrccirireeree 
scansione della memona cei 
cie ile a ‘28KSvre totali, è Isualizzazione sel 
‘esti su 30 scionne. 


UNITA DI MEMORIA 


Disk I. drive a docpio controiler. 
Unita ci memor:a cer floppy sisk ca 3.25" sen 
capacita ci 1+CK5yte cer ogni ‘leccv. - nta 
a comcerensiva della scheaa ci interaccia cer 
Apcte ile. che permette ci ccile 
seconco rive aggiuntivo. «L 
metta ii collegamento ci 3 snve 
ve aggiuntivi. seria conti 
uma.. Tcilegaciie ancne 2.40 


[3] 


Disk il. Srive aggiuntivo ............. 
Unita ci memena cer :Hloocy cisx 
capacita ci *4CKbyte der ogni iccov. - nta 
aggiuntiva necessita gel controler. ‘ornuo 
nella confezione del Zisk | snvo 
controller. Collegatite ancne 3 30018 
IUS. 


PERIFESICHE 


Hand controiler 
Due manccoie 7 
auisante. 


dovaticii lenza 
Lava di comanco 9er ‘ormire 
computer Aopie le input ci Sesizie! 
coordinate X-. 


Numeric Keypadi!e.. 
Tastierino numerico cer Apcie 
ed interfacciaro. 


comeleio 


74 


Prezzo 
IVA esci. 


322.300 


32 


000 


34.200 


125.300 


371.200 


Prezzo 


IVA como. 


+ 2.399.350 2.321.223 


080.22 


39.120 


159.300 


437.730 


INTERFACCE 


Super interfaccia seriale per Acplei//e ......... 
Scneca di interfaccia seriale RS232 utilizza» 
bile per il collegamento ci stampanti e linee di 
comunicazione. (Anche per Acple /l Euro- 
piusì. 


interfaccia parallela universale Applei/a..... 
Scheda di interiaccia che permette ii collega- 
mento ci unità periferiche con standard paral- 
leio 3 centronics. {Anche per Apple /l Euro- 
pius). 


Scheda interfaccia IEZE 488 ver Appleila ... 
Permette il collegamento ci strumenti di misu- 
ra 8 dispositivi periferici vari che utilizzano io 
standard di interfacciamento 'EZZ 488. (An- 
cene ser Acple ;/ Europius). 


Scheda prototycing hooby cer Appiei/a ..... 
Scneda cer realizzare orcpri circuiti da colle- 
gare ai oerscnai computer Accie le. ;Ancne 
ger docile il Suropius). 


ACCESSCRI 


Appie stand ..... n 
3ase ci ancoggio cel Morniter Il cer consen 
re l'installazione asteticamenie ciacavcie sui- 
l'Accie .le a su Aopie /l Surocius. 


3ersa in vinile ser Agpie i!» ‘ancre cer ic- 
2ieil Suroplus) 


Ser cavi cer ‘nterfaccia parallela Agpie........ 


DES. II KIMI ssscerrrorsrrescerscssrassssenenonenesseseneos 


LINGUAGGI DI IRCGRAMMAZIONE 


Apcie Sascal. 


Accie Fartran ...... init ends 
SUPEf IOL.....omonrcrccrtrrrrcrrorcenonsssronesrososeneszoneno 


Accie Logo... 


OCCUMENTAZIONE 
* Manuale utente ceil’Apcie; 2 initaliano .... 


Manuale di introduzione al ‘inguaggio Ac- 
PIESONTI EIN INGIESEO)" ..srcecreccrrrerreserrenereoreerere 


«Manuaie cei ‘inguaggio Appiesott ‘a ‘in 
INDIOSG]*..scrcnrniciveeitanioreicizizzatti Pe 


Ser di manuali Appiesort :/e «i fue oreca- 
denti. :n inglese) 


Manuale cei sistema Appleilatin!ingieser? 


The Acplesott Tutorial in italiano 


Applesott !l Reference Manual in italiano” 


Prezzo 
IVA escl. 


352.900 


204.200 


341.200 


32 200 


34.300 


32.500 
36.200 


105.300 


138.200 
102.200 
479.200 


252.200 


41.200 


31.200 


31.200 


98.200 
51.900 
21.000 
21.200 


353.720 


992.380 


99.120 


Prezzo Prezzo 

IVA escl. IVA comp. 
Apple Il Reference Manual in italiano?......... 42.000 49.560 
Apple Integer Basic Programming Manual 
in italiano ... .. 15.000 17.700 
* Disk Il, Sistema Operativo DOS 3.3............ 21.000 24.780 
* Apple Pascal Reference Manual (in ingle- 
GO) incsrarenivisceniceriosezzena cescscescereccscicsenionesccsscessso. _IR0O00 48:020 
* Apple Pascal Operating System Manual 
(IMINGIOSO) «cccrrrsrreresesscerestonecsnrnrsasesessseziosezenneo 51.000 60.180 
* Apple Fortran Manual (in inglese) ............. 51.000 60.180 
* Apple Pilot Reference Manual (in inglese) 36.000 42.480 
* Apple Pilot Editors Manual (in inglese) ....... 31.000 36.580 
*Graphics Tablet Manual(ininglese)............ 20.000 23.600 
*Silentype Manual (in iNGIESE).......ccrrrrrnnn 6.000 7.080 
6502 Hardware Manual (in inglese).............. 30.000 35.400 
6502 Programming Manual (ininglese)......... 30.000 35.400 
* Manuali già inclusi nel prezzo delle singole parti, 
ma ordinabili anche separatamente. 
Le note 1, 2 e 3 indicano gli stessi manuali. 
in versione inglese o italiana. 

APPLE /// 
Prezzo Prezzo 

IVA escl. IVA comp. 
APRI!!! (128 KD).............scccccrcrcrerererereriznenzeni 5.036.350 5.942.893 
Unità centrale del sistema di elaborazione 
professionale Apple Ill, comprensivo di: ® 
Memoria da 128 Kb RAM e Tastiera con 
maiuscole e minuscole e tastierino numerico 
e Disk drive integrato per floppy disk 5.25" da 
140 Kb @ Controller per ulteriori 3 drive ag- 
giuntivi esterni e Interfaccia seriale RS 232 e 
per stampante Silentype @ Segnale di uscita 
video BIN e a colori RGB e Sistema operativo 
SOS comprensivo di utilities di sistema. 
APPIEI! (256 KD).............srrcrrrcrrsrererererererarinene 5.876.350 5.934.093 
Versione potenziata dell'unità centrale Apple 
Ill con 256 Kb di memoria interna RAM. 
ESPANSIONI 
256 Kb Upgrade Kit......... la ni 1.848.000 2.180.640 


Kit di espansione di memoria per convertire 
un Apple Ill (128 Kb) in un Apple Ill (256 Kb). 


Softcardii/ 
Scheda CPU che permette di utilizzare il si- 
stema operativo CPIM sul computer Apple Ill. 


908.000 1.071.440 


UNITÀ DI MEMORIA 


DISKMIl cesrrcerezicezzcnentrnvscsresze rin iarenmrceca ite 
Drive aggiuntivo per floppy da 5.25". Capaci- 


755.000 890.900 


Prezzo Prezzo 
IVA escl. IVA comp. 


tà di 140 Kb per floppy. È possibile collegare 
fino a 3 Disk Ill per ogni Apple Ill. 


PPOFIIEII! ...ersrrrrrrrrsrirrerierensensesienenserisneoseonenninie 3.776.000 4.455.680 
Unità di memoria aggiuntiva basata su disco 

rigido (Winchester) da 5 Mega byte. L'unità è 

completa di interfaccia per Apple /I/. È possi- 

bile collegare fino a 4 ProFile per ogni Apple 

HI per un totale di 20 Mega byte in linea. 


PERIFERICHE 


CUFSOFIII .....norrtrcrrrirerrererisiziorisirerenio rese reneenenee 135.000 159.300 
Leva di comando per fornire direttamente al 
computer Apple Ill input di posizionamenti in 


coordinate X-Y. 


INTERFACCE 


Interfaccia parallela universale Apple!!! ...... 454.000 535.720 
Scheda di interfaccia che permette il collega- 

mento con standard parallelo di unità penife- 

riche. 

Scheda prototyping per Apple! . 103.000 121.540 
Scheda per realizzare propri circuiti da colle- 


gare al computer Apple Ill. 


ACCESSORI 


Borsa in vinile per Apple:// 84.000 99.120 


Kitconversione Silentype Il- Silentype!!!.... 834.900 99.120 


Modemeliminatorcable .........................1>> 14.000 16.520 


Set cavi per interfaccia parallela Appie. 36.000 42.480 


LINGUAGGI DI PROGRAMMAZIONE APPLE 


Apple!!! Business BASIC ..................un 253.000 298.540 


Pascali! 486.000 573.480 
DOCUMENTAZIONE 
* Business Basic Manual ....................1.101%> 61.000 71.980 
* Pascal Programming Manuals ................... 17.000 20.060 
*Pascal Introduction Manual........................ 40.000 47.200 
*Pascal Programming Preparation Tools ... 40.000 47.200 
* Manuali già inclusi nel prezzo delle singole parti. 
ma ordinabili anche separatamente. 

UNITÀ VIDEO 
MONILOF IN .........onctrtrtrcrvrrrrrrnrerereoreresneeseorenenzene 484.000 571.120 
Video a 12 pollici, fosfori verdi. per Apple ile e 
per Apple Ill. 
Monitor fosfori verdi 9"....................srrrrrererres 180.000 212.400 
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Monitor Philips fosfori gialli .............rr 


UNITÀ DI SCRITTURA 


SIIEMYPE!O......ercrrcrccrcsrrrvcsescersessonesnonssorencoseo 
Stampante termica da 80 colonne con capa- 
cità grafiche. La confezione comprende l'in- 
terfaccia e i cavi di collegamento ail'Apple /le. 


SIIESIYPE I! .s.vsrcrcrrrrcrcsccesescoresionensooseonessoroseszeo 
Stampante termica da 30 colonne con capa- 
cita grafiche. 


Stampante ad aghi Apple. 
Unità ci stampa cne permette di u gI 

singoli o modulo continuo. Stampa in norma- 
le. compresso. grassetto s proporzionale. 
inoltre permette ia stampa di grafici aa alta 
risoluzione. In stampa normale permette gi 
ottenere 30 colonne. La velocita è di 120 ca- 
ratteri al seconco 8 il percorso è digirezionale 
ottimizzato. L'interfaccia richiesta è di tipo pa- 
ralleio (cod. 115-02). £ necessario ordinare i 
set ci cavi ‘cod. 122-05). 


Stamcante a margherita Appie............ 
Per ottenere stamoe di documenti a cori 
sponcenza di elevata qualità. L Unità permet 
‘e di utilizzare fogli singoli o modulo continuo. 
La spaziatura ira ' caratteri 3 selezionacile: 
10. 12, 15 caratteri cer pollice. La velocita a ci 
40 caratteri al secondo e il sercorso è dicire- 
zionale citimizzato. L'interfaccia ricniesta 
icoc. 1175-01} e ci :ipo serraie igià compresa 
nell'Acpie /Il. ma non nell'Apple ile). 


Stampante !RET 30 Colonne Paraileia ......... 


Stampante iRE7 132 Colonne Paraileia ....... 


Prezzo 


Prezzo 


IVA escl. IVA comp. 


352.000 


723.000 


656.000 


, 1.225.000 ? 


425.360 


853.140 


774.080 


445.500 


.. 3.373.000 4.375.040 


1.110.000 1.298.000 


1.552.900 © 


MATERIALE DI CONSUMO 


Confezione 10 dischetti Apple...................... 
Aaccegiitori ser dischetti (50 fogli) ............... 
Carta termica per Silentype (10rotoii).......... 


Conrezione 6 nastri per stampante marghe- 
LIRA APPIO ......icccvrccccsresronesioressasscseneseosscaccsszzes 


6 nastri muiti strike per stampante ad aghi 
Appie. 


5 nastri 


tessuto per stampante ad aghi 


Confezione 6 margherite tipo P.£. 12. 
Margnerita :ipo Prestige Eiite 12. 


Conrezione $ margherite tipo C. 10 .............. 
Marghenta tipo Courier 10. 


Confezione 6 margherite tipo G. 15............... 
Marghenta tipo Gothic 15. 


Confezione 6 margherite tipo 8.2. 
Marghenta tipo Boldface Proporzio 
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102.200 
38.000 
34.000 


135.000 


125.000 


125.000 
179.000 


170.000 


170.000 


170.000 


331.360 


121.540 
30.240 
99.120 


159.200 


159.300 


159.300 
200.500 


200.600 


200.500 


200.600 


Prezzo Prezzo 
IVA escl. IVA como. 


ACCESSORI PER APPLE // EUROPLUS 


ESPANSIONI 

Language Card(Scheda memoria 16k) ......... 352.000 415.360 
PERIFERICHE 

Tavoletta grafica interattiva.......................... 1.452.000 1.713.360 
INTERFACCE 

Interfaccia Applestandard Centronics ..... 333.000 392.940 
Scheda Apple per colore PAL....................... 237.000 279.560 
MISCELLANEA 

HANdCONtrollerS...............csvcsrvrrsrcrcrrersrrcinees 34.000 99.120 
SOYSGUCK .sccsciccoririirensioranziarivzarzicnisvicicanasiizicie 125.000 159.300 
Numeric Keypad .............errrrvrrrrerererrivereoniceene 371.000 437.780 


ESPANSICNI DEL SISTEMA 


Scheda 230 Microsott ser Sistema Dperati- 


vo CPIM 17.900 956.280 
Cobol 30 Microsortoer Seneca Z30..........n 1.562.000 1.843.160 
Fortran 80 Microsottper Scneca 280............ 406.000 479.080 


3asic Compiler Microsoftoer Seneca 230 769.000 907.420 
ALDS Microsott(sistema di svilupzo cer oro- 


grammi Assemtier 3080. 230 2 3 250.000 


250.200 295.000 


Seneca orolegio calendario CCS 
Arithmetic PFOC2SSOMCES ................. 993.000 1.17 
Scheda espansione Maxi RAM 16X 3ASIC 269.200 


TASC Microsort{compilatore Acviesci: 364.000 429.520 


PERIFERICHE 
Mega-Disk Doppio drive 3" con controiler .... 2.998.900 3.537 640 
Doppio Drive 8"S.2. Doppia faccia............... 3.268.000 3.855.240 


Doppio Drive 8” D.D. Doppia faccia con con- 


troller.. 4.240.000 5.003.200 
INTERFACCE 

Modulatore UHF .. 73.000 86.140 
Interfaccia IRET Cantronics con gratica per 

739 mcrscssreccsesccesesssisrescosscanenenesssssonseosssrenconssaione 190.000 224.200 
Interfaccia IRETstandard Centronics.. 140.000 165.200 


Prezzo 
IVA esci. 
Interfaccia CCS parallela .......................1x1% 260.000 
Interfaccia CCS seriale RS232-C.................. 309.000 
Interfaccia Seriale sincrona CCS ................. 427.000 
Interfaccia Centronics con Buffer SET ........ 400.000 
Scheda CCSGPIBIEEE 488.......................... 585.000 
Scheda CCS A/D converter BCD ................... 237.000 
Controller per Drive 8"FAST singola densità 402.000 
Controller + Software per compatibilità IBM 
SUB" SINGOla DENSItà......serrrrrrrrrrrrrrererierererezenne 770.000 
MISCELLANEA 
Alimentatore tampone... 290.000 
DOCUMENTAZIONE 
User Manual and Report Pascal ................... 29.000 
Problem Solving Using Pascal..................... 23.000 
Some Common Sasic Programs... 33.000 
Apple Writer/le Sistema di videoserttui 403.000 
Quick File lie Gestione archivi ed inairizzari ... 202.000 
Business Graphics Il Sistema di elacorazio- 
NE E CIEAZIONE Gi GFAfiCI ........ssrrrrrrrrrrrrererisierere 352.000 
Multiplan per Apple lle Sistema di calcolo 
basato su foglio elettronico suddiviso in sle- 
menti mutuamente COrrelabili ...............s.svrcvs0r0 598.000 
Apple Project Manager .........................w 470.000 
Hand Hold BASiC................rrrrrirriiriririnene 237.000 
Pascal Animation Tool......................en 151.000 
Personal Finance ................secrrrrirrrirrrene 151.000 
SUPEITMEPncniicicniniriveniviarinnenizicreazenmcini 51.000 
VT-100Emulator...................vccrrirrriririienere» 151.000 
World's BIACk JACKk..........srrrrrriririririririnee» 70.000 
Senior Analist!/Il .... 454.000 
Script!I.... 202.000 
Speed Reader..........................crerrrerririzicoriree 151.000 
MODIOWTI cinici 103.000 
MAGIC Spell ......s.svcvrsrvrvrvsrrrvsrroernssorserseosevancase 103.000 
DATAtrea ............crssrrsrrrrsr0cv000ssorcvassersrcsronscsorico 253.000 
VISICRICIII...csmcvecsvrvericrcsniriarorcsrsrseoneseriosionionisse 486.000 


Mail List Manager Gestione indirizzario po- 


Prezzo 
IVA comp. 


306.800 
364.620 
503.860 
472.000 
690.300 
279.660 
474.360 


908.600 


342.200 


34.220 
27.140 
38.940 
475.540 
238.360 


415.360 


705.640 
554.600 
279.660 
178.180 
178.180 

61.360 
178.180 

83.780 
535.720 
238.360 
178.180 
121.540 
121.540 
298.540 
573.480 


Prezzo 

IVA escl. 
stale collegabile ad Apple Writer II .....rsrrrrrrrrne 304.000 
QUICK FIGI ....rsrcrrrcssrorrerecnrrroreoneseresesscenesanereo 336.000 
Apple Writer!l/ Sistema di videoscrittura ....... 438.000 
BUSINESS GPAPhicsi!! ........cssccrrrrcrrrrrrereninrenee 352.000 
ACCESSI! ........cccrrrrrrrrrrererrserereneneserenenezaneneonseo 304.000 
SCFIPLIII .....esrrrrcrerrrrrrrrerereresizenenineneneninineeseseneo 253.000 
Senior analist/I!..............rvrrssrererereerererereioneo 707.000 
Pascal Utility Library!!! ... 151.000 

SOFTWARE 

Personal Data Base 5°. 66.000 
Personal Data Base d"................rrrrrrrirernireo 75.000 
Personal Filing System per Apple Il ............. 217.000 
Personal Report System per Apple Il ........... 217.000 
Software grafico per Centronics 739............ 73.000 
Programming AIDS 3-3 ... 179.000 
Personal Filing System per Apple! ............ 258.000 
Personal Report System per Apple!!! .......... 225.000 
PTERO (Cominfor) Word processing........... 190.000 
P.F.S. Graphics.l.. 217.000 
P.F.S. GPAPhICSI!! ....scerrrrrrrererivirrerereeninizivinio 304.000 
P.F.S. Data Saver..................rrcrerrrrererererioneos 104.000 
Personal Filing System per Apple!ie ........... 217.000 
Personal Report System per Apple'!e ......... 217.000 
Personal Filing System Graph per Applelle 217.000 
Pro Writer(solo per Apple /l EUFOpIUS) ........en 124.000 
CCA Data Management System Apple Il 
PIUS smsscisicescsceriaszcnsiseennnseneeeenenenzensconisionicnseinno 254.000 
Sistema per la gestione generalizzata di infor- 
mazioni. Memorizza dati di qualsiasi tipo. 
consentendo la ricerca automatica ed even- 
tuale modifica. 
Desk Top PIan I APPIE Il PIUS ...srssrcrrererereneneee 478.000 
Sistema semplice e rapido per organizzare il 
lavoro di analisi finanziaria, preparazione di 
budget e programmazione della gestione. 
Sono previste stampe da allegare alle relazio- 
ni e rappresentazioni grafiche necessarie per 
una maggiore chiarezza. 
Desk Top PIANI/l ADPIE Ill ......srsrrrrerererecenerenene 573.000 


Versione potenziata del Desk Top Plan II, per 
le maggiori capacità di Apple Ill. 


Prezzo 
IVA comp. 


358.720 
396.480 
516.840 
415.360 
358.720 
298.540 
834.260 
178.180 


77.880 

88.500 
256.060 
256.060 

86.140 
211.220 
304.440 
256.500 
224.200 
256.060 
358.720 
122.720 
256.060 
256.060 
256.060 
146.320 


299.720 


564.040 


676.140 
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VisiCalc Apple ile...... 
Sistema di simulazione basato su una matrice 
di 64x254 elementi correlabili con metodi di 
calcolo multirelazionale. La matrice è un foglio 
di lavoro, che consente di osservare dinami- 
camente le conseguenze delle proprie deci- 
sioni, prima di renderle esecutive: poiche con 
VisiCalc è possibile risponcere in ogni mo- 
mento alla domanda «Cosa succederenbe 
se...?». Ideale: per pianificazioni e program- 
mazioni aziendali. giustifica anche da solo 
l'acquisto di un personal computer anche nei- 
le applicazioni scientifiche e di calccio in ge- 
nerale. 


VisiCalc Apple /! . 


VisiCale Advanced Version Acpie ill ...... 
Versione del VisiCale potenziata per ie mac- 
giori caratteristiche di Apple ‘ll. 


VisiCaic Business Forecasting Model A0- 


DIE Il sossrrscrcsesiceonernesszonesnesnzenenzeneeneonenneneerenene 00 


VisiCale Business Forecasting Model 40- 
DICI ssrerrssroricricecserione dor t'ivcszecabisasenione 


Visidex Aopie !l 
Programma di arcn 
oeramente in una scneca corrisconcente al 
quadro video. La inicrmazioni dosseno sci 
assere ricercare istantaneamente Seconco "1- 
fermenti incrociati: infatti. ogni Darcia 0 car: 
tere appartenente alla scneca ouo assere 
cniave di ricerca der 'a stessa. 


Visifile Aople !l ani egpziona 
Completo sistema di archiviazione alettroni- 
ca. che permette di organizzare ‘ac:imen: 
îurte le informazioni necessarie alle attivita cu- 
siness. Oltre alla gestione celle informazioni. 
consente notevoli altre possibilita. quali: cam- 
DI calcolati. stampe gi racgeri 3 ‘0 scamcio 
ge! dati con altr >rogrammi cela sere /isi. 


Yisipiot Apple | 
Visipiot facilita 2 sveltisce ‘a croduzione ci 
grafici e diagrammi: linee ‘continue 0 spezza- 
te), istogrammi. punti. iveogrammi. E prevista 
anche ia possibilita di rappresentare contem- 
poraneamente piu serie di cunti per un siu 
rapido confronto. il programma consente zi 
porre in forma grafica i dati elaporati con ‘/isi- 
Cale. 


Visischedule ADRIE Îl ..........rrrrrrerereene 

Il programma Visischeatie e un cotente siste- 
ma di pianificazione celle attivita e del proget- 
ti. Oltre al controllo avanzamento lavoni con- 
sente la definizione dei costi e ia asecuzione 
di tutti i documenti. 


ViISItEerm ADRIE Îl.........csrccrcrrrrrrcrcerenizerenionivene 
Con Visiterm il personal computer puo comu- 
nicare con grandi e piccoli elaboraton, inviare 
e ricevere informazioni 2d archivi su cisco 
tramite linea telefonica. E possibile definire 
«macro» 2 protocolli di colloquio. 
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Prezzo 


Prezzo 


IVA esci. IVA comp. 


478.000 


473.000 
764.000 


191.000 


191.900 
473.000 


47. 


000 


782.200 


372.200 


191.000 


564.040 


364.040 


901.520 


225.380 


225.380 


364,040 


450.78 


5 


8.740 


(Sn) 


VIsISCREAUIE AppIE Ill .....srrrrrrrriririrereerirzenerenne 


Visitrend/Plot APpIE Îl.......serrrcrrcrerrerrere da 
Il sistema risponde alla crescente necessità di 
idonei strumenti da parte di: pianificatori, ma- 
nager. imprenditori, analisti e consuienti. Esso 
è composto da due programmi: uno per anali- 
si di tipo statistico (calcolo di regressioni mui- 
tipe. medie e coefficienti di correlazione), l'al- 
tro per rappresentazioni graficne. 


PLOTTER 


Plotter Strobe 100.................. 
Sistema di disegno e scrittura a ruilo e penna 
mobile. controllabile da computer a manual- 
mente :ramite | pulsanti a pannello. Il sistema 
a corredato di: penne. cavo di alimentazione e 
manuale. 


INTERFACCE 


Interfaccia Strobe per Apple Il ..................... 
Scneca alettronica di collegamento del Plor- 
ter Strove 100, al computer Aopie il e Apple I/l 
in amulazione, compieta di cavi a gi soitware 
grafico Business grapnics per utilizzare facil- 
mente le caratteristicne cel sistema ci cise- 
gno automatico per ia produzione vi isto- 
grammi. diagrammi cartesiani 3 circolari. 


Interiaccia Strobe seriale RS232.................- 
Adattatore di collegamento del Pieter Stroce 
#00 ac un qualsiasi computer dotato ci inter- 
faccia AS292. 


SOFTWARE 


Difpiot ...... invece 
Programma ci ‘ettura 2 gesiicne grafica cel 
dan 2laccrati con il orogramma ‘isiCaic. cer 
attenere grafici e diagrammi si iacile lettura. 


Business Graphics per Apple il 
Programma applicativo che oermette :l dise- 
gno ci istogrammi. diagrammi cartesiani e c:r- 
colari. Particolarmente utile nelle attivita di 
pianificazione. il programma 2 di facile uso 
perche guidato da menu. 


Strobe view per Apple....................rx iaia 
Software grafico che permette di ottenere rl- 
suitan su lucidi. 


Screen Dump per Apple......................rr 


Permette di ottenere la riproduzione cella pa- 
gina grafica di Apple Il. 


MATERIALE DI CONSUMO 


100 fogli di carta patinata di dimensione rt- 
chiesta per il Plotter Strobe 100. 


Prezzo 


Prezzo 


IVA escl. IVA comp. 


573.000 
579.000 


1.357.200 2. 


281.300 


06.200 


104.300 


202.200 


156.000 


3.900 


676.140 


676.140 


191.250 


331.580 
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‘o 
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184.080 


184.080 


4.602 


AppliHelp è una rubrica di assistenza 
hardware e software riservata ai lettori. 
Nel primo numero di Applicando non ab- 
biamo naturalmente richieste da soddisfa- 
re. Ma queste pagine attendono solo di 
potersi rendere utili. Per qualunque pro- 
blema relativo ai computer Apple, alle pe- 
riferiche, agli accessori, ai programmi, i 
nostri esperti saranno lieti di rendersi utili. 
Basta scrivere a: 


Applicando 
Rubrica AppliHelp 
Corso Monforte 39, 
20122 Milano 


AiicrOtech 
I] “Centro Vendita Simpatico” 


Alla Microtech, simpetia, 
citrs ai sistemi seen 2 tenta esperienza. 
trovi macchine, e E Molto, 
software. ‘ef son tempo da 
interfacce, ma anche dedicatrti. Ti aspettiamo 


dadi 


Ti&i via SRENZETT, 20 - 20129 MILANO fgerrie computar 


INFORMATICA celeroni 733. 609 - 740. 654 


Listati senza fatica 


l programmi pubblicati su Applicanda possona es- 
seretrascritti dai lettori esalvati su dischetto. Ma la: 
trascrizione è lenta e noiosa. Chi. la desidera: può 
richiederci î dischetti satta indicati,. già pronti. Chi 
desiderasse anche if dischetta com i programmi 
STATISTICHE. SCANNER e FIGURATI UN PO” può 
invece atteneria gratis.. Abbondandosi ad Appli- 
cando. 


APT/N03. Dischetta: cam ii programmi ELI 
MINATORE DE DOS (pag. 28}, OROLOGIO 
(pag. 44), e PRONTE PUNTARE FUOCO”. 

(pag» 46}. Lire: + 
30.000 (Abbonati Lire 25.000)i. 


APT/102 Disctrette core i pragrammie PRO- 
‘% FITTE PERE FAVORE (pag. 38). CALENDA- 

* RICPERPETUC (pag: 54), ei THONCHEDEE. 
TESORG? (pag GG) Lire: 3.00 (Abbonati 
EireZ2 000} 


A differenza della rubrica AppliHelp, di 
pagina 79, destinata a lettere con richieste 
di assistenza hardware o software, Ap- 
pLettere è aperta a tutti i lettori che voglia- 
no commentare, suggerire, informare, 
proporre. Criticare, anche. 

Altre rubriche che vedranno la luce dal 
prossimo numero di Applicando sono: 
Chiedi un programma, per tutti coloro 
che desiderano un programma su misura, 
hanno le idee chiare su quel che occorre 
loro ma non hanno tempo e modo di realiz- 
zare il software necessario da soli. Appli- 
cando cercherà di accontentare almeno 
un lettore per numero, scegliendo i pro- 
grammi che possono risultare di interesse 
più generale, e le richieste formulate con 


maggiore precisione di dettagli, scopi, ne- 
cessità, ecc. 

Il mercatino delle mele, per tutti coloro 
che desiderano vendere o comprare (0 
scambiare) computer Apple, accessori, 
periferiche, ecc. Le inserzioni degli abbo- 
nati saranno pubblicate gratuitamente an- 
che su RadioELETTRONICA & Computer, 
rivista pubblicata dalla stessa casa editri- 
ce di Applicando. 

Lettere, suggerimenti, richieste e inserzio- 
ni vanno indirizzate, precisando la rubrica, 
a: 


Applicando 
Corso Monforte 39, 
20122 Milano 


| PERCHÈ SCEGL 


LIETE UNA STAMPANT=EOKI? 


low MICROLINE sa 
1 (6 CAM RCNDO <2 CCLCME 


- 
— ADONE» ‘cena. 200.C00 
OKI MICROLI NE od 

RI SEDCNOO 


| = FAZIONE + CORSI ‘350.000 


OKI MICROLINE 32/A 

| m 23 CAAAITER AL SEOCNOO dI COLONNE 
= $ SET DI CARATTERI » SMARCA 

tm è WODI DI STAMPA VPI ELETTRONICO 

— FAIDOME + ATTRAE L 1.170.000 


OKI MICROLINE 30 


» TRATTORE + ACATARULLO 
"TL 450.000 


OKI 


siectrie PERCHE VI OFFRE: 
nera 
SOZOREE RE = NN GRAFICA 40 JATA SISOAUZONE 
- SUDOSTA 
— SLSVATA VLCOTA 
— SIMITADI CARATTERE CHE VOLETE 
— CSTTAIL FOGLIO SINGOLO ER 
IODULO CONTINUO 
= SA NASTRI T20 MACCHINA CA 
SCRIVERE D E “DISTRUTTIZILE 
"30 MILCNI LI PATTUTE CARANTTTO 


4 


murs 8 APPLE 


SCHEDA TEESZASTE SA 
MEDA TELERASTER ‘/l PERMETTE Di INTERFACCIARE DI INQUE "ID 
NERI iO oc loi CON L SLABORATORE APPLE i. OTTENENDO 5 sua PAGINA n 
FAGINE SiR 


SA SCHEDA DERMETTE POI DI OTTENERE iL «E 
E Si 


a SENTRONICS 
"SUARDI DER OTTENERE IL CONGELAMENTO DELLI IMMAGINE SONO CONT 
TO CON LA SCHEDA. IN UN PROGRAMMA ESEMPLIFICATIVO CHE PERMETTE DI RIP! 
vA_:LABORARLO. SALVARLO SU DISCO, STAMPARLO SU CARTA NEL CASO SI POSSIEZA NA STAMPANTE 
sRAf 

te LO STESSO DISCO VI SONO INOLTRE TUTTII PROGRAMMI DI UTILITY PERIL CORRETTO ADATTAMEN 
c) È 


LECAMERA Al CALCOLATORI 
apanmine sa i, 555.200 


sqmeenicne 
‘COMUNICAZIONI 


TORINO via ORMEA 
TONDIZIONI PAATICCI 
UCMIEDETECI IL LISTINO: OLTRE $0 PRODOTTI apbi 


Protezione 
con il D6 


Uno degli argomenti più 
scottanti è quello dei metodi 
di protezione del software. 
Un metodo interessante è il 
“D6". Funziona solo con 
l'Applesoft e non con l'Inte- 
ger basic, ma merita atten- 
zione in quanto, se si cerca 
di listare un’ programma, 
questo non fa che mettersi a 
girare! Non solo. ma usando 
la massima parte delle istru- 
zioni Applesoft. perfino un'i- 
struzione grafica. il compu- 
ter ignorerà l'istruzione e 
comincerà a girare il pro- 
gramma. 

Basta fare così. Per prima 
cosa si carica il programma 
Appiesoft da proteggere. 
Poi si va in monitor (Call- 
151) e si guarda il byte D6. 
Dovrebbe esserci memoriz- 
zato uno 00. Tutto quello 
che si deve fare è digitare: 
D6:FF 

Ecco fatto! Adesso si tor- 
na in Applesoft (si dovrebbe 
usare 9DBFG) a si cerca di 
listare il programma. Do- 
vrebbe mettersi a girare. 

Ma allora non lo si potrà 
mai listare? Non è esatta- 
mente così. In fin dei conti 
quando si spegne l'Appie e 
si rifà il bcoting il byte D6 
viene ripristinato a un valore 
00. Dunque come fare per- 
ché il programma si com- 
porti sempre così? La ma- 
niera più facile sarebbe 
quella di digitare come pri- 
ma linea dei programma: 

0 POKE 214,255 

D6 in decimaie è 214 e in 
quella locazione inseriamo 
in memoria un 255 (FF) di- 
rettamente dal basic. Po- 
trebbe addirittura essere di 
aiuto nascondere questo 
poke in più locazioni diffe- 
renti o in un data statement, 
o usare altri metodi per oc- 
cultarlo (come adoperare 
dei Control-H). Naturalmen- 
te il programma dovrà esse- 
re eseguito almeno una voi- 
ta prima dell'aggiunta della 
protezione. ma è probabile 
che prima di listare il pro- 


gramma lo si esegua, e 
quindi esso è al sicuro an- 
che se viene ricaricato. 
Questo è dovuto al fatto che 
il byte D6 non viene ripristi- 
nato se l'Apple non è com- 
pletamente spento (o non 
viene rifatto il booting). 


Generatore di 
numeri casuali 


C'è una differenza nel 
modo in cui i generatori di 
funzioni casuali agiscono in 
Applesoît e in Integer basic. 
In integer il generatore di 
numeri casuali viene auto- 
maticamente impostato 
ogni volta che lo si usa per la 
prima volta, mentre nell'Ap- 
plesoft questo non avviene 
Se si userà il programma 


che segue si avranno sem- 
pre la prima volta gli stessi 
numeri. 

10 FORI=1 TO 20 

20 X=INT(RND(1) 11) 


30 PRINT Xx, 
40 NEXTI 

| primi numeri saranno 
sempre: 
3;7,407:3,2/7,05,9;8,8, 
6,0,7,7,2,1,4,4 


In altri termini anche se lo 
si rifacesse per un numero 
infinito di volte la sequenza 
sarebbe sempre prevedibi- 
le. Se si desse un comando 
FP, che rità l'inizializzazio- 
ne dell'Applesott, il genera- 
tore di numeri casuali sa- 
rebbe riportato all'inizio. Per 
evitarlo si deve impostare di 
nuovo il generatore di nu- 
meri casuali. Questo pro- 
blema non esiste nell'Inte- 
ger basic. 


‘Nel prossimo 


applicando 


Auto É costi di quella che ho 
i costi di quella che avrà 


Prave La contabilità 


sull'Apple /// 


Applicazioni Se collego 


una telecamera... 


Pascaf Non è poi 


così difficile 


‘Giochi Gli imper? della spazio 


Investimenti Se Apple Il gioca 


im Borsa 


Uno spazzino 
per lo schermo 


AMPER-CLEAR è un 
programma il quale non fa 
altro che cambiare il vettore 
& (in ingiese “ampersand”, 
da “and per se and") in mo- 
do di saltare alla routine in 
monitor che pulisce lo 
schermo. Basta digitare & e 
premere RETURN e lo 
schermo sarà sgomberato. 
Nulla di straordinario, ma si 
potrebbe sostituire alla rou- 
tine qualche altra routine di 
monitor. 


AMPER-CLEAR 

19 FORI = 768 TO 773 

20 READ A 

30 POKS I,À 

40 NEXT | 

50 POKS 1013,76: POKS 
1014,00: POKE 1015,03 

60 END 

100 DATA 32, 38, 252, 169, 

00, 133, 36, 32, 91, 251, 96 


L’anti-Resei 


RESET-RUNNER è un 
programmino di due linee 
che, aggiunto all'inizio di un 
programma Applesoiît, im- 
pecirà il Reset. 

I due poke 1010 e 1011 
inseriscono in memoria ia 
locazione dei comando 
RUN deil'Applesoît. Viene 
richiamata una routine nella 
Auto-stat ROM che mette 
un valore exclusive-or nella 
locazione 1012 decimale. 
La locazione 1012 è nota 
come byte di power up, per- 
ché è li che guarda l'Apple 
per vedere se è stato appe- 
na acceso (partenza a fred- 
do) o no (partenza a caldo). 
Così quando si preme RE- 
SET salta. invece di tornare 
in Basic, alla routine in Ap- 
plesoft cne fa girare un pro- 
gramma Applesoft. 

RESET RUNNER 
10 POKE 1010,102: 
POKE 
1011,212 
20 CALL — 1169 
30 END 


B rown Disc abbina la 
capacità e l'affidabilità dei dischi 


rigidi alla convenienza dei floppy dise. 
Brown Disc è l'unico produttore ad 
offrire la tecnologia tipica dei dischi 
rigidi: una esclusiva tecnica di 
spalmatura centrifuga assicura un 
rivestimento di spessore infinitesimale 
comuna conseguente più elevata 
densità. 
Grazie. ad un particolare 
sovrarivestimento ed un layer di prima 
scelta..le caratteristiche di adesione / 
coesione ela durata del dischetto e 
delle testine migliorano notevolmente. 
[Inoltre la riduzione delle tensioni fra 
fe particelle aumenta la stabilità del 
supporto: - 

La Browm Disc offre una densità 
lineare più ‘elevata degli standard 


(Wevetalico a lati ici disc tecinblogy 
and decided to be flexible. I 


richiesti dai drive più in uso e partecipa 
allo sviluppo di nuove tecnologie per 
quelli del domani. 

Per la prima volta potrete centrare 
infallibilmente il mercato dei 
Winchester e del backup. 

Agli OEM. offriamo un prodotto di 
qualità superiore, che può essere 
commercializzato con il loro marchio. 

Alle Software Houses un dischetto 
veramento sicuro cui affidare i propri 
programmi. Infine i distributori e 
rivenditori ora hanno possibilità di 


avere a magazzino il supporto che i più 
preparati utenti di mini e miero- 
elaboratori richiederanno. 

Se desiderate la tecnologia di un 
disco rigido in un flopy nomavete altra 
scelta se non utilizzare Brown Disc. 

Per ulteriori informazioni serivete 0 
telefonate a 
M.D.A. S.r.l. 

Via S. Giuseppe, 137 

20147 SARONNO 

Tel. 0Z - 96209 145- 9620015 
Tix. 380426 API 047 


Scegliete iLvostro supporto dalla seguente tabella: 


Spessore della: 
Tipo: . Spalmatura: Coercitività 
- VHR=EIE 120 Lim. 300 0ersted 
UHR-E 60 im. 300 cersteì 
UHR-IE 


Capacità 
Densità (Doppia Faccia) 
6200 BPI - T.Omegabyte «; 
10,00 BPI 3:Zmegabyte : 


45 im. 60Coerstedì 10,000-18,000 BPE 5.0 megabyte 
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-[ompushop apre a Roma. 
Cmpushup:apple a Roma 


Il posto delle mele del tempo delle 
mele. Il tranquillo ambiente della nuova 
rivoluzione. Le proposte che stanno cambiando il 
modo di fare le cose, la maniera di usare iltempo 
e gli strumenti del mestiere, della scienza, della 
tecnica e della cultura. 

Per chi di computer sa tutto ed ha 
bisogno di assistenza specialistica, di software, di 
una stampante nuova, 

di libri, o anche solo di un pacco di carta... 

Per chi non sa niente, ma vorrebbe 

sapere, e capire: assistenza informativa, corsi di 


Rivenditore Autorizzato 
ins 
si 
SIGERI s.r.l. 
Via Lorenzo Bonincontri 105-107 
teletono 5140792 


Computershop 
Via Nomentana 265-273 


formazione, guida all'acquisto, consulenza. 

Per chi ha un computer e per chi no; 
per un video a colori, i dischi, un modello nuovo, 
espansioni ed integrazioni di sistema... 

E il nuovo Apple //e, il punto d'arrivo 
della linea II, dopo Apple Il e Apple Il plus. Ora con 
tastiera ancora migliorata, anche in versione 
italiana, migliore visualizzazione, memoria 
espansa. 

Venite a trovarci. 

Via Nomentana 265, 267, 269, 271, 273 
di fronte a Villa Torlonia. 


Apple continuo g a crescere 


anche Sigeei 


